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Accomplishments/New  Findings: 

•  We  report  a  GPU-implementation  in  HOOMD  Blue  of  long-range  electrostatic  interactions 
based  on  the  orientation-averaged  Ewald  sum  scheme.  Our  GPU  implementation  is 
significantly  faster  than  the  CPU  implementation  of  the  Ewald  method  for  small  to  a  sizable 
number  of  particles  (~105)  and  underlies  all  our  fundamental  numerical  and  computational 
research  in  the  proposal. 

•  We  formulated  a  generalized  elastic  model  for  inhomogeneous  shells,  we  demonstrate  that 
co-assembled  shells  with  two  elastic  components  buckle  into  polyhedra  such  as  dodecahedra, 
octahedra,  tetrahedra,  and  hosohedra  shells  via  a  mechanism  that  explains  many 
observations,  predicts  a  new  family  of  polyhedral  shells,  and  provides  the  principles  for 
designing  micro-containers  with  specific  shapes  and  symmetries  for  numerous  applications  in 
materials  and  life  sciences.  We  have  used  simulated  annealing  Monte  Carlo  simulations  to 
determine  optimal  shapes  and  domain  distributions  of  a  two-component  elastic  shell  over  a 
wide  range  of  inter-component  line  tensions,  relative  concentrations  of  the  components,  as 
well  as  relative  bending  rigidities.  We  found  a  rich  gallery  of  shapes,  including  a  number  of 
polyhedral  structures  at  moderate  values  of  the  line  tension  and  the  bending  rigidity  ratio. 

Our  analysis  shows  that  it  is  in  principle  possible  to  combine  two  materials  with  different 
elastic  properties  to  construct  a  wide  variety  of  shell  shapes  with  potential  applications  in 
medical  imaging,  drug  delivery,  or  composite  material  design.  Our  model  assumes  the 
presence  of  the  12  disclination  defects  originating  from  the  construction  of  a  crystal  lattice  on 
a  sphere.  However,  our  results  suggest  that  the  faceting  into  polyhedral  shapes  is  not  directly 
related  to  the  defects,  even  though  their  presence  introduces  strain  to  the  shell. 

•  We  showed  that  an  explicit  solution  of  the  Poisson  equation  can  be  entirely  avoided  in 
simulations  that  originate  from  a  judiciously  designed  variational  formulation; 

•  We  showed  that  an  explicit  solution  of  the  Poisson  equation  can  be  entirely  avoided  in 
simulations  that  originate  from  a  judiciously  designed  variational  formulation; 

We  have  developed  a  variational  formulation  of  electrostatics  that  uses  the  ideal  combination 
of  the  functional  and  the  optimization  scheme  to  allow  for  large-scale  simulation  of  charges 
in  the  presence  of  varying  dielectric  response.  The  functional  that  we  derive  is  a  true  energy 
functional,  yielding  the  correct  thermodynamic  force  during  the  approach  to  the  minimum 
and  making  the  full  exploitation  of  dynamical  optimization  procedures  possible.  Apart  from 
the  standard  assumption  of  linear  dielectric  response,  we  make  no  assumptions  about  the 
electrostatic  system  in  the  derivation  of  the  functional.  This  makes  possible  the  more 
ambitious  long-term  goal  of  investigating  the  effects  of  evolving  geometry,  which  underlies  a 
deeper  study  of  the  interplay  between  geometry  and  electrostatic  interactions. 

•  We  have  characterized  the  mechanical  properties  of  multi-component  fibers.  The  specific 
fibers  under  study  consist  of  two  components  with  different  bending  and  twist  stiffness, 
length,  and  spontaneous  curvature.  We  have  developed  a  theoretical  formalism  for 
predicting  the  conformation  of  these  fibers  in  an  enormous  space  of  mechanical 
properties.  Ultimately,  our  work  develops  a  catalog  of  fiber  conformations  as  a  function  of  a 
variety  of  mechanical  input  conditions. 

•  We  have  investigated  and  provided  multiple  support  arguments  regarding  the  hypothesis  that 
polyvalent  oligonucleotide-functionalized  gold  nanoparticles  are  remarkably  stable  in  a 
cellular  environment  against  degradation  by  nucleases  due  to  the  local  high  concentration  of 
mono-  and  divalent  ions.  In  particular,  we  investigate  the  composition  of  the  ion  cloud 
around  spherical  nanoparticles  that  are  functionalized  by  stiff,  highly  charged  polyelectrolyte 
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chains  by  means  of  classical  density  functional  theory  and  molecular  dynamics  simulations, 
and  present  a  cell  model  that  includes  ligands  explicitly  and  is  both  applicable  over  the  entire 
relevant  parameter  space  and  in  excellent  quantitative  agreement  with  simulations. 

We  reported  a  model  that  demonstrates  the  separation  (by  reverse  osmosis,  capillary 
electrophoresis,  or  chromatography)  of  cationic  nanoparticles,  including  proteins  with  equal 
net  charge  but  different  surface  charge  distributions. 

We  showed  that  charge  correlations  between  the  head  groups  can  lead  to  solidification  of  a 
lipid  bilayer  that  would  be  in  a  liquid  state  if  the  charges  were  absent.  All  elastic  parameters 
of  the  bilayer  such  as  the  bending  rigidity  k  and  the  two-dimensional  Young’s  modulus  Y  are 
found  to  depend  on  the  relative  charge  stoichiometric  ratio  between  the  lipid  head  groups. 

We  used  an  elastic  model  to  explore  faceting  of  solid- wall  vesicles  with  elastic 
heterogeneities,  and  showed  that  faceting  occurs  in  regions  where  the  vesicle  wall  is  softer, 
such  as  areas  of  reduced  wall  thicknesses  or  concentrated  in  crystalline  defects. 

We  studied  the  force  between  two  identical  charged  nanoparticles  in  the  presence  of  an 
electrolyte  with  different  ionic  size  theoretically  and  via  molecular  simulations.  An 
asymmetric  behavior  with  respect  to  the  colloidal  charge  polarity  was  found  for  the  effective 
interactions  between  the  nanoparticles.  In  particular,  short-range  attractions  are  observed 
between  two  equally  and  highly  charged  nanoparticles.  This  unexpected  behavior  could  be 
relevant  for  colloidal  stability  applications,  considering  that  our  model  does  not  include 
specific  attractive  interactions.  These  attractions  are  greatly  enhanced  for  anionic 
nanoparticles  immersed  in  standard  electrolytes  where  cations  are  smaller  than  anions. 

We  presented  a  closure  for  the  Omstein-Zernike  equation,  applicable  for  fluids  of  charged, 
hard  spheres.  From  an  exact,  but  intractable  closure,  we  derive  the  radial  distribution  function 
of  nonlinear  Debye-Hiickel  theory  by  subsequent  approximations,  and  use  the  information  to 
formulate  a  new  closure  by  an  extension  of  the  mean  spherical  approximation.  The  radial 
distribution  functions  of  the  new  closure,  coined  Debye-Hiickel-extended  mean  spherical 
approximation,  are  in  excellent  agreement  with  those  resulting  from  the  hyper-netted  chain 
approximation  and  molecular  dynamics  simulations,  in  the  regime  where  the  latter  are 
applicable,  except  for  moderately  dilute  systems  at  low  temperatures  where  the  structure 
agrees  at  most  qualitatively. 

We  have  extended  the  coarse  grained  model  to  faithfully  mimic  relative  design  parameters  in 
dsDNA  systems.  Using  Molecular  Dynamics  simulations  with  nanoparticles  in  the  size  range 
from  8  nm  to  15  nm,  overall  DNA-nanoparticle  hydrodynamic  radii  of  10  nm  to  30  nm,  and 
the  number  of  DNA  strands  per  particle  between  40  and  100,  the  model  proves  robust,  such 
that  completely  random  initial  configurations  can  self-assemble  into  a  variety  of  crystal 
structures,  including  BCC,  CsCl,  AlEC  and  G^Si.  With  these  simulation  data,  we  have 
constructed  detailed  phase  diagrams  that  closely  correspond  to  the  experimental  results  from 
wet-laboratory  studies. 

We  described  several  distinct  ion-induced  forces  in  aqueous  solutions  of  monovalent  ions  at 
salt  concentrations  ranging  roughly  between  0.01  and  1  M  that  are  expected  to  compete  for 
dominance  with  the  well-known  screened  Coulomb  forces. 

We  introduced  the  concept  of  soft  structure  to  connect  the  induced  forces  to  the  local 
microscopic  structure  in  the  ionic  fluid  and  visualize  the  deformation  of  the  local 
environment  around  the  ions  near  several  types  of  boundaries  that  are  neutral,  adsorbing, 
charged,  polarizable,  or  a  combination  of  these  properties.  The  considered  forces  cannot  be 
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found  by  well-known  (practical)  mean-field  theories  and  are  relevant  for  neutral  solutes  or 
solutes  close  to  an  isoelectric  point  as  well. 

We  provided  an  intuitively  appealing  overview  to  aid  and  enhance  predictability  and  control 
in  experiments.  The  results  from  the  state  of  the  art  liquid  theory  techniques  (namely  AHNC) 
may  provide  guidance  for  the  development  of  simple  scaling  laws,  potentially  efficient  and 
practical  Density  Functional  Theories  (DFTs),  and  coarse-grained  simulation  methods  to 
overcome  the  disparate  length,  time,  and  energy  scales  that  characterize  nanomaterials  and 
biological  matter. 

We  developed  a  minimal  continuum  elastic  model  of  a  lamin  meshwork  that  we  used  to 
investigate  which  aspects  of  the  meshwork  could  be  responsible  for  bleb  formation  in  the 
cell’s  nucleus. 

We  studied  a  strongly  adsorbed  flexible  polyelectrolyte  chain  on  tori.  The  patterns  of  the 
adsorbed  chain  are  analyzed  in  the  space  of  the  toroidal  coordinates  and  in  terms  of  the 
orientation  of  each  chain  segment.  Various  patterns  are  found,  including  double  spirals, 
disclination-like  structures,  Janus  tori,  and  uniform  wrappings,  arising  from  the  long-range 
electrostatic  interaction  and  the  toroidal  geometry. 

We  performed  atomistic  simulations  and  revealed  that  the  competition  of  physical 
interactions  and  charge-regulation  induced  transitions  in  crystalline  membrane  states  that 
translate  in  changes  of  shapes.  We  demonstrated  that  the  bilayer  thickness  and  molecular 
packing  are  not  homogeneous  in  the  low  symmetry  closed  shapes,  and  that  the  curved 
regions  are  less  ordered  and  therefore  would  allow  higher  transport  of  molecules  than  the 
crystalline  flat  polyhedra  faces. 

We  calculated  the  electrostatic  potential  difference,  excess  surface  tension,  and  differential 
capacity  corresponding  to  the  distribution  of  ions  near  liquid  interfaces  via  Monte  Carlo 
simulations.  This  includes  ion  correlations  and  polarization  effects  for  equally  sized  ions  in 
water,  and  equally  sized  ions  in  oil. 

We  studied  a  dense  two-dimensional  binary  mixture  consisting  of  ionized  amphiphiles  with 
positive  and  negative  species.  We  analyze  this  co-assembled  system  by  numerically  exact 
optimization  and  by  continuum  Monte  Carlo  simulations  including  short  range  and 
electrostatic  interactions  among  all  the  particles.  We  found  the  optimal  structure  to  be  a 
triangular  lattice  for  high  salt  concentrations,  a  face-centered  rectangular  lattice  for 
intermediate  salt  concentrations,  and  a  square  lattice  for  low  salt  concentrations. 

We  investigated  the  effects  of  topological  defects  on  the  low-energy  shapes  of  single¬ 
component  two-dimensional  elastic  vesicles  with  spherical  topology.  We  found  that  since  the 
volume  constraint  partially  suppresses  the  buckling  transition  such  that  the  buckled 
icosahedral  shape  has  a  reduced  asphericity,  defect  scars  are  favorable  over  a  larger  range  of 
elastic  parameters  of  the  membrane  compared  with  systems  having  no  constraint  on  volume. 
We  studied  the  shapes  of  pored  membranes  within  the  framework  of  the  Helfrich  theory 
under  the  constraints  of  fixed  area  and  pore  size.  We  showed  that  the  mean  curvature  term 
leads  to  a  budding-like  structure,  while  the  Gaussian  curvature  term  tends  to  flatten  the 
membrane  near  the  pore;  this  is  corroborated  by  simulation. 

We  determine  how  the  dielectric  heterogeneities  of  a  spherical  nanoparticle  influence  the  ion 
distribution  of  their  surrounding  medium. 

We  demonstrate  that  electrolyte  concentration  can  be  used  as  a  tool  to  manipulate  the  shape 
of  soft,  closed  membranes  and  provide  exact  expressions  for  the  electrostatic  energy  of 
uniformly  charged  prolate  and  oblate  spheroidal  shells. 
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We  extended  the  electrostatic  analysis  from  charged  vesicles  to  charged  ribbons  which  were 
recently  synthesized  in  experiments  with  promising  applications  in  realizing  several 
biological  functions  and  designing  new  structures  in  nanotechnologies.  Simulations  showed 
the  hierarchical  buckling  of  the  ribbon  from  its  initially  flat  shape  to  the  undulated  and  then 
to  the  out-of-plane  twisted  conformations  with  the  variation  of  screening  length.  Using  the 
tool  of  classical  differential  geometry,  we  found  the  geometric  origin  of  the  electrostatically 
driven  conformal  transformation.  The  screening  length  controlled  buckling  of  the  ribbon 
suggests  a  convenient  way  in  experiment  and  applications  to  manipulate  ribbon 
morphologies  by  simply  changing  the  salt  concentration. 

We  observed  the  dynamics  of  generic  n-point  vacancies  in  two-dimensional  Lennard- .Tones 
crystals  in  several  thermodynamic  states.  We  numerically  observe  significantly  faster 
diffusion  of  the  two-point  vacancies  that  can  be  attributed  to  its  rotational  degree  of  freedom. 
The  high  mobility  of  the  two-point  vacancies  opens  the  possibility  of  doping  two-point 
vacancies  into  atomic  materials  to  enhance  atomic  migration. 

We  determine  the  rules  for  optimal  self-replication  of  colloids.  Using  a  quantitative  analytic 
model,  we  correctly  described  the  dependence  of  the  dimer  replication  rate  on  the  frequency 
of  driving  energy  delivery,  and  the  optimization  of  such  frequency  to  minimize  error  during 
the  replication  process.  We  analyzed  the  self-replication  of  functionalized  colloids.  We  also 
proposed  a  new  paradigm  based  on  magnetic  colloids. 
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Summary: 


Cells  contain  charged  molecules,  organized  via  reversible  interactions  into 
supramolecular  structures  and  materials,  which  can  perform  mechanical  and  chemical  functions 
with  precision  in  fluctuating  media.  Our  work  aims  to  uncover  the  principles  underlying  the 
cellular  programming  responsible  for  compartmentalization,  communication  and  replication  as 
well  as  to  subsequently  employ  these  principles  to  generate  assemblies  that  function  as 
autonomous  organisms.  Living  matter  is  highly  inhomogeneous  at  the  nano-scale  both  in 
composition  and  charge.  A  big  challenge  has  been  to  determine  how  these  inhomogeneities 
generate  functions.  In  this  context,  the  dominant  role  played  by  electrostatics  during  pattern 
formation  is  evident,  given  that  nucleic  acids  and  many  proteins  are  charged  or  possess  units 
with  tunable  degrees  of  charge.  As  a  result,  the  association  of  biomolecules  into  functional  units 
has  demonstrated  strong  dependence  on  local  ionic  concentrations.  Thus,  using  ionic  gradients  as 
one  means  to  control  the  assembly  and  disassembly  of  biological  entities  is  critically  important  to 
generate  biomimetic  functions.  We  have  developed  models,  based  on  information  collected  in 
vivo  and  in  situ,  to  better  understand  the  physical  properties  and  functions  of  biomolecular 
assemblies  in  different  ionic  conditions  for  designing  biomimetic  materials  with  new  capabilities. 

Build-up  of  our  TARDIS  cluster  and  a  series  of  works  on  electrostatically  driven  structures  and 

functions  in  multiple  length  scales  carried  out  in  the  cluster 

In  Year  1  of  the  grant  considerable  effort  was  spent  on  acquiring  and  building  the 
TARDIS  cluster  that  was  used  for  numerical  simulations  of  the  soft-matter  systems  proposed  for 
study  in  the  current  fellowship.  In  technical  details,  the  TARIS  cluster  has  a  total  of  576  CPU 
cores  spread  over  36  computational  nodes  with  36  Fermi  graphics  cards,  one  in  each  node. 
Nodes  were  connected  through  the  low-latency  Infiniband  network,  making  it  suitable  for 
running  large-scale,  communication-intensive  applications  like  molecular  dynamics  simulations 
or  linear  algebra  calculations  (e.g.,  in  differential  equation  solvers). 

To  illustrate  the  computational  power  and  efficiency  of  the  TARDIS  cluster,  we  have 
reported  a  GPU  implementation  in  HOOMD  Blue  of  long-range  electrostatic  interactions  based 
on  the  orientation- averaged  Ewald  sum  scheme,  introduced  by  Yakub  and  Ronchi  (J.  Chem. 
Phys.  2003,  119,  11556).  The  performance  of  the  method  is  compared  to  an  optimized  CPU 
version  of  the  traditional  Ewald  sum  available  in  LAMMPS,  in  the  molecular  dynamics  of 
electrolytes.  Our  GPU  implementation  was  found  to  be  significantly  faster  than  the  CPU 
implementation  of  the  Ewald  method  for  small  to  a  sizable  number  of  particles  (~105). 
Thermodynamic  and  structural  properties  of  monovalent  and  divalent  hydrated  salts  in  the  bulk 
are  calculated  for  a  wide  range  of  ionic  concentrations.  An  excellent  agreement  between  the  two 
methods  was  found  at  the  level  of  electrostatic  energy,  heat  capacity,  radial  distribution 
functions,  and  integrated  charge  of  the  electrolytes. 

As  detailed  in  our  publication  in  Proceedings  of  the  National  Academy  of  Sciences  USA, 
we  proposed  a  theoretical  model  that  would  provide  a  simple  mechanism  for  the  formation  of 
general  systems  exhibiting  the  Platonic  and  Archimedean  geometries  found  in  many 
multicomponent  elastic  membranes.  Large  crystalline  molecular  shells,  such  as  some  viruses  and 
fullerenes,  buckle  spontaneously  into  icosahedra.  Meanwhile  multicomponent  microscopic  shells 
buckle  into  various  polyhedra,  as  observed  in  many  organelles.  Although  elastic  theory  explains 
one-component  icosahedral  faceting,  the  possibility  of  buckling  into  other  polyhedra  has  not 
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been  explored.  We  showed  that  irregular  and  regular  polyhedra,  including  some  Archimedean 
and  Platonic  polyhedra,  arise  spontaneously  in  elastic  shells  formed  by  more  than  one 
component.  By  formulating  a  generalized  elastic  model  for  inhomogeneous  shells,  we 
demonstrated  that  co-assembled  shells  with  two  elastic  components  buckle  into  polyhedra  such 
as  dodecahedra,  octahedra,  tetrahedra,  and  hosohedra  shells  via  a  mechanism  that  explains  many 
observations,  predicts  a  new  family  of  polyhedral  shells,  and  provides  the  principles  for 
designing  micro-containers  with  specific  shapes  and  symmetries  for  numerous  applications  in 
materials  and  life  sciences. 

In  another  study,  we  proposed  a  continuum  theory  to  describe  the  influence  of  salt  on  the 
phase  segregation  behavior  of  poly  electrolyte  gels.  As  polyelectrolyte  (PE)  gels  are  becoming 
more  and  more  attractive  materials  for  vast  applications,  it  is  of  interest  to  develop  a  continuum 
theory  to  describe  the  influence  of  environmental  stimuli  on  the  phase  behavior  of  PE  gels.  To 
quantitatively  investigate  the  complex  phase  behavior,  we  employed  generalized  time-dependent 
Ginzburg-Landau  evolution  equations;  in  particular,  the  charge  interactions  were  solved  using  a 
spectral  technique  that  dramatically  improves  the  computational  efficiency.  We  identified  the 
existence  of  nano-phases  in  between  homogeneous  swollen  gels  and  collapsed  gels.  The 
characteristic  length  scale  of  PE  gels  in  a  bad  solvent  was  investigated  by  taking  the  phase  to  be 
the  stripe  phase.  Besides  the  numerical  studies,  we  provide  a  weakly  nonlinear  analysis  to  shed  a 
light  on  underlying  physics  that  influences  the  characteristic  length  scale;  in  particular,  we 
illustrated  the  salt  concentration  can  be  used  to  tune  the  length  scale  of  complex  patterns.  The 
length  scale  of  nano-phases  can  be  adjusted  by  other  system  parameters,  such  as  Bjerrum  length, 
monomer  charge  fraction,  etc  (Wu  et  al..  Macromolecules  43,  9160  (2010). 

In  addition  to  the  prediction  of  the  length  scale  of  the  nano-phase,  we  investigated 
complex  phase  behavior  in  higher  dimensions.  PE  gels  are  shown  to  exhibit  different  phases  such 
as  rolls,  squares,  hexagons,  etc.  The  nano-patterns  are  sensitive  to  environmental  parameters,  and 
the  phase  transition  can  be  achieved  by  continuously  varying  the  environmental  parameters.  One 
example  is  the  transition  between  hexagonal  phase  and  reverse  hexagonal  phase  accompanied  by 
varying  Bjerrum  length  or  solvent  quality.  The  asymmetry  between  these  two  hexagonal  phases 
gives  rise  to  asymmetry  of  solvent  permeability,  which  can  be  used  as  solvent  channel  switch. 
Over  the  past  decade  it  has  become  more  and  more  obvious  that  the  nuclear  lamins  are  essential 
elements  in  determining  nuclear  structure  and  function.  The  lamins  are  responsible  for 
determining  nuclear  shape  and  size,  and  they  provide  mechanical  stability  to  the  nucleus.  Details 
of  the  molecular  structure  of  lamins  in  the  nucleus  are  not  well  understood.  To  investigate  the 
morphology  of  bleb  formation  in  cancer  cell,  we  adapted  a  continuum  approach,  a  phase  field 
crystal  model,  which  is  capable  of  describing  surface  segregation,  elastic  energy  and  bending 
energy.  A  closest  point  method  is  used  to  map  the  evolution  of  phase  field  crystal  equation  to  an 
arbitrary  curved  surface. 

Continuing  with  our  focus  on  understanding  structures  and  functions,  we  investigated  the 
surface  patterns  of  charged  end-group  ligands  attached  to  faceted  nanoparticles  using  coarse¬ 
grained  molecular  dynamics  simulations.  A  competition  between  electrostatic  repulsion  and 
hydrophobic  ligand-ligand  attraction  leads  to  the  formation  of  a  number  of  different 
conformations  of  the  ligand  coatings.  The  most  prominent  conformation  in  icosahedral 
nanoparticles  is  a  ridge-like  structure  that  makes  their  surfaces  highly  anisotropic.  Meanwhile, 
bundles  seem  more  prominent  than  ridges  for  tetrahedral,  cubic,  octahedral,  and  dodecahedral 
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nanoparticles  of  diameters  comparable  to  the  chain  length.  The  applicability  of  the  Debye- 
Huckel  theory  to  describe  the  ridges  is  confirmed  by  comparing  simulations  with  explicit  ion 
simulations.  Here,  we  argued  that  a  tunable  ligand-coating  pattern  can  be  used  as  a  simple  and 
robust  tool  for  achieving  direction-dependent  interactions  between  nanoparticles  and  provide 
control  of  their  assembly  into  composite  materials  with  a  desired  symmetry. 

Furthermore,  we  also  presented  a  model  for  the  conformation  of  closed,  inextensible 
diblock  fibers.  Each  component  of  the  fiber  maintains  a  different  stiffness.  The  relative  fraction 
of  each  component  is  controlled  by  adding  a  chemical-potential  term  to  the  polymer’s  energy 
functional.  We  developed  an  analytical  formalism  that  exploits  variational  arguments  to  derive 
the  shape  of  two-component  polymers  for  arbitrary  component  stiffness  and  length.  These  results 
yielded  an  analytical  solution  for  the  shape  of  diblock  fibers  in  which  each  component  has  a 
different  stiffness,  a  complete  description  of  all  possible  polymer  conformations  and  a  phase 
portrait  detailing  the  parameter  spaces  in  which  these  shapes  occur.  Our  work  has  developed  a 
catalog  of  fiber  conformations  as  a  function  of  a  variety  of  mechanical  input  conditions. 

Electrostatic  interactions  are  essential  to  designing  self-assembled  structures  with  unique 
symmetries  and  mechanical  properties.  These  interactions  can  be  modified  by  varying  the 
effective  charge  of  the  molecules  via  the  alteration  of  medium  conditions  including  pH,  salt 
concentration,  or  dielectric  constant  variations.  In  many  situations,  correlated  ionic  crystals  form 
at  liquid-liquid  interfaces,  on  membrane  surfaces,  or  at  solid  interfaces  that  adsorb  charged 
molecules  when  such  medium  conditions  are  modified.  We  have  determined  the  structure  and 
mechanical  properties,  such  as  the  Young’s  Modulus  and  Poisson’s  ratio,  of  stoichiometric  lil- 
ionic  crystals  on  surfaces  as  a  function  of  the  medium  dielectric  constant,  which  is  modified  by 
changing  the  solvent  conditions  in  both  theoretical  calculations  and  simulations.  We  found  that, 
at  large  values  of  the  dielectric  constant,  the  fully-packed  hexagonal  lattice  has  the  lowest 
energy,  while  at  small  values  of  the  dielectric  constant  the  square  lattice  is  the  most  favorable 
energetically.  For  square  lattices,  the  Young’s  modulus  along  the  direction  of  like-like  charge 
particles  is  smaller  than  that  along  the  direction  of  like-unlike  charges,  while  its  value  remains 
isotropic  in  hexagonal  crystals. 

In  general,  polyvalent  oligonucleotide-functionalized  gold  nanoparticles  are  remarkably 
stable  in  a  cellular  environment  against  degradation  by  nucleases,  which  was  a  property  recently 
attributed  to  the  local  high  concentration  of  mono-  and  divalent  ions.  In  order  to  evaluate  this 
hypothesis  in  more  details,  we  investigated  the  composition  of  the  ion  cloud  around  spherical 
nanoparticles  that  are  functionalized  by  stiff,  highly  charged  polyelectrolyte  chains  by  means  of 
classical  density  functional  theory  and  molecular  dynamics  simulations.  As  such,  we  presented  a 
cell  model  that  includes  ligands  explicitly  and  is  both  applicable  over  the  entire  relevant 
parameter  space  and  in  excellent  quantitative  agreement  with  simulations.  We  studied  the  ion 
cloud  for  varying  oligonucleotides  grafting  densities,  bulk  ionic  concentrations  as  well  as  the 
different  sizes  of  nanoparticles  and  chains,  and  distinguish  a  parameter  regime  where  many-body 
interactions  between  the  ligands  have  a  dominant  effect  on  the  local  environment.  For  small 
particles  with  high  oligonucleotide  surface  densities,  we  found  strongly  enhanced  local  salt 
concentrations,  a  large  radial  component  of  the  electric  field  between  the  ligands,  and  a 
pronounced  localization  of  divalent  ions  near  the  surface  of  the  nanoparticle,  thus  providing 
multiple  supporting  arguments  for  the  hypothesis. 
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In  addition  to  statics,  we  also  considered  dynamics  effects  of  non-equilibrium  charge 
screening  in  mixtures  of  oppositely  charged  interacting  molecules  on  surfaces  in  a  closed  system. 
The  dynamics  of  charge  screening  and  the  strong  deviation  from  the  standard  Debye-Huckel 
theory  are  demonstrated  by  computing  radial  distribution  functions  suited  for  analyzing  both 
short-range  and  long-range  spatial  ordering  effects  with  time.  At  long  distances,  the 
inhomogeneous  molecular  distribution  is  limited  by  diffusion,  whereas  at  short  distances  by  a 
balance  of  short-range  (Lennard- Jones)  and  long-range  (Coulomb)  interactions.  This  generates 
different  growth  rates  for  the  two  characteristic  length  scales.  The  short  length-scale  saturates 
rapidly,  while  the  long  length-scale  grows  linearly  with  time. 

Furthermore,  we  have  developed  a  variational  formulation  of  electrostatics  that  uses  the 
ideal  combination  of  the  functional  and  the  optimization  scheme  to  allow  for  large-scale 
simulation  of  charges  in  the  presence  of  varying  dielectric  response.  At  present,  the  most 
promising  functionals  and  the  accompanying  numerical  schemes  employ  an  expensive  choice  of 
vector-function  variables  and/or  make  severe  assumptions  about  the  electrostatic  system  that 
they  intend  to  simulate,  such  as  the  constraint  on  the  charges  to  reside  in  only  one  dielectric 
media  and  restrictions  on  the  geometry  of  the  interface  to  simple  shapes.  We  have  formulated  a 
variational  principle  for  a  general  electrostatic  problem  with  only  one  scalar  basic  variable 
function:  the  induced  polarization  charge  density.  The  functional  that  we  derive  is  a  true  energy 
functional,  retaining  its  physical  interpretation  of  energy,  even  outside  the  point  of  minimum, 
and  yielding  the  correct  thermodynamic  force  during  the  approach  to  the  minimum,  making  the 
full  exploitation  of  dynamical  optimization  procedures  possible.  Apart  from  the  standard 
assumption  of  linear  dielectric  response,  we  make  no  assumptions  about  the  electrostatic  system 
in  the  derivation  of  the  functional.  In  the  specific  problem  of  charges  near  one  interface 
separating  two  dielectrics  characterized  by  different  dielectric  constants,  the  induced  charges 
reside  only  on  the  surface,  thereby  reducing  the  complexity  of  the  problem  to  a  two-dimensional 
one,  and  our  computational  scheme  takes  full  advantage  of  this  fact.  The  induced  surface  charge 
density  can  be  expanded  in  terms  of  spherical  harmonics  for  an  interface  of  any  general  shape, 
the  coefficients  of  expansion  becoming  the  undetermined  variational  parameters  that  are  solved 
for  on  the  fly  and  in  tandem  with  the  production  of  charge  configurations  that  become  available 
to  carry  out  statistical  averages  of  quantities  of  interest.  We  have  set  up  a  computational  scheme 
inspired  by  the  dynamical  optimization  algorithm  discovered  by  Car  and  Parrinello  in  the  context 
of  molecular  dynamics  simulation  of  ion-electron  systems.  In  this  sense,  our  method  can  be 
thought  of  as  a  unified  approach  to  molecular  dynamics  and  electrostatics,  just  as  the  Car- 
Parrinello  method  combines  molecular  dynamics  with  density  functional  theory.  We  have 
implemented  our  scheme  to  a  model  problem  of  a  single  charge  near  a  dielectric  sphere  of  a 
different  dielectric  constant  when  compared  with  that  of  the  medium  surrounding  the  charge. 
This  model  could  be  used  to  represent  ions  near  a  colloidal  particle  or,  when  the  charges  are 
inside,  it  could  be  used  to  study  solvation  effects  on  macromolecules.  We  have  computed  the 
polar  profiles  (which  match  exact  results)  of  the  induced  surface  charge  density  and  the  evolving 
position  of  the  charge  for  both  cases  of  the  charge  being  outside  and  inside  using  both 
microcanonical  and  canonical  simulations.  Our  next  goal  is  to  perform  canonical  simulations 
with  many  charges  near  interfaces  of  various  shapes  and  extract  physically  important  observables 
such  as,  for  example,  density  profiles  for  the  charges.  This  would  require  formulating  the 
problem  with  the  discrete  analog  of  surface  charge  density  and  a  convenient  choice  for  the 
discretization  of  a  general  surface.  We  are  very  close  to  deriving  and  setting  up  such  a 
formulation.  A  more  ambitious  long-term  goal  is  to  investigate  the  effects  of  evolving  geometry, 
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which  changes  the  boundary  conditions  that  determine  the  electrostatic  interaction  between  the 
ions,  which  in  turn  modifies  the  induced  charge  density  on  the  interface  and  the  very  shape  of  the 
interface  itself,  thus  inviting  a  deeper  study  of  the  interplay  between  geometry  and  electrostatic 
interactions. 

As  part  of  our  ongoing  works,  we  simulate  a  coarse-grained  model  of  a  system  of 
proteins  interacting  with  DNA  via  excluded  volume  interactions.  In  general,  small  proteins  that 
bind  to  DNA  play  a  significant  role  in  controlling  chromosome  function  and  dynamics.  The 
dynamics  of  DNA-binding  proteins  finding  their  targets  has  been  a  subject  of  intense  study. 
However,  release  of  proteins  from  DNA  is  also  very  important  in  controlling  the  dynamics  of 
gene  regulation.  The  stability  of  the  protein-DNA  structure  depends  to  some  degree  on  the  fact 
that  the  proteins  can  unbind  and  rebind  very  quickly  to  the  double  helix.  These  events  depend  on 
the  microscopic  and  macroscopic  off-rates.  We  investigate  how  the  DNA’s  conformation  affects 
the  protein  rebinding  dynamics.  In  the  case  of  a  stretched  DNA,  we  find  a  logarithmic 
dependence.  We  also  study  the  case  where  the  DNA  has  a  random  self-avoiding  walk  shape:  i) 
when  it’s  free  in  space  and  ii)  when  it’s  confined  in  a  sphere.  In  both  these  cases  we  find  power- 
law  dependence  (the  number  of  protein  rebinding  events  vs.  DNA  length).  Next  we  are  going  to 
include  the  appropriate  charge  in  our  system  and  study  the  same  quantity.  That  is  to  see  how  the 
DNA  conformation  affects  the  binding-rebinding  dynamics  of  the  sequence-independent  proteins 
binding  to  it. 


Examining  the  shape  space  of  multicomponent  elastic  membranes,  electrically  charged  and  DNA 
programmed  nanoparticles,  and  fluid  of  charged  hard  spheres. 

During  the  grant  we  effectively  used  and  also  expanded  the  TARDIS  cluster,  built  with  a 
unique  design  which  allows  for  concurrent  execution  of  conventional,  highly-parallel  CPU  codes 
and  novel  GPU  programs  in  a  homogeneous  environment  and  even  within  the  same  queuing 
system.  The  TARDIS  cluster  has  continued  to  run  at  or  near  capacity  this  year,  with  all  576  CPU 
cores  and  36  GPUs  assembled  in  year  1  performing  well.  Users  make  use  of  a  unified  job- 
submission  structure  for  serial,  large-scale  parallel,  and  GPU  jobs.  Upgrades  to  keep  software 
and  drivers  current  have  been  performed  online  with  no  resulting  downtime.  We  have  purchased 
and  added  a  12TB  dedicated  storage  server  using  RAID-6  to  accommodate  large  data  sets  and 
keep  nightly  backups;  this  server  provides  a  secure  place  to  store  critical  information  and  assists 
in  the  data-management  side  of  achieving  data  provenance.  Additionally,  the  success  of  running 
large-scale  simulations  on  GPUs  has  motivated  the  recent  purchase  of  6  new  computational 
nodes  with  Sandy  Bridge  Xeon  processors  that  accommodate  5  GPUs  each.  This  brought  the 
group  total  to  66  GPUs. 

In  continuation  of  our  earlier  work  describing  a  theoretical  model  that  would  provide  a 
simple  mechanism  for  the  formation  of  general  systems  exhibiting  the  Platonic  and  Archimedean 
geometries  found  in  many  multicomponent  elastic  membranes,  we  have  used  simulated 
annealing  Monte  Carlo  simulations  to  determine  optimal  shapes  and  domain  distributions  of  a 
two-component  elastic  shell  over  a  wide  range  of  inter-component  line  tensions,  relative 
concentrations  of  the  components,  as  well  as  relative  bending  rigidities.  We  found  a  rich  gallery 
of  shapes,  including  a  number  of  polyhedral  structures  at  moderate  values  of  the  line  tension  and 
the  bending  rigidity  ratio.  For  large  values  of  the  line  tension,  we  observed  a  complete 
segregation  of  the  components  into  shells  with  two  distinct  sides,  one  predominantly  spherical 
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and  the  other  buckled,  see  Figure  2. 


r/Khard  icr4  io'3  2xi o’3  2xio 


Figure  2:  Gallery  of  representative  shapes  for  a  range  of  relative  fractions  of  the  soft  component 
f  vs.  the  dimensionless  line  tension  r/Khard  for  Ksof/Khard=  0.03.  In  the  top  row,  the  system  is 
almost  completely  soft,  and  the  icosahedral  buckling  is  clearly  evident.  As  the  fraction  of  the  soft 
component  is  reduced  the  icosahedral  symmetry  is  lost,  the  soft  component  forms  ridges  and  the 
shell  buckles  into  a  number  of  irregular  polyhedra.  The  soft  component  is  shown  in  blue  and  the 
hard  component  in  red. 

We  argue  that  the  observed  faceting  is  driven  by  a  mechanism  very  different  from  the  one 
responsible  for  the  buckling  of  a  sphere  into  an  icosahedron  at  the  12  disclination  defects.  For 
moderate  values  of  the  line  tension  the  minority  soft  component  forms  lines,  which  act  as  edges 
of  a  polyhedron.  The  hard  component  segregates  into  facets  that  are  flattened  and  the  majority  of 
the  curvature  is  concentrated  at  the  soft  edges.  Interesting  shapes  are  observed  for  very  weak  line 
tension,  in  particular  for  values  significantly  smaller  than  the  line  tension  used  in  a  recent  study 
of  the  multicomponent  liquid  vesicles.  We  believe  this  is  due  to  the  fact  that  even  without  the 
line  tension,  two  elastic  components  on  a  shell  naturally  try  to  segregate,  as  we  have  recently 
reported.  Thus,  even  a  very  weak  line  tension  is  sufficient  to  drive  the  components  to  fully 
segregate.  Our  analysis  shows  that  it  is  in  principle  possible  to  combine  two  materials  with 
different  elastic  properties  to  construct  a  wide  variety  of  shell  shapes  with  potential  applications 
in  medical  imaging,  drug  delivery,  or  composite  material  design.  In  addition,  results  of  this  study 
provide  a  plausible  explanation  for  the  shapes  of  cell  organelles  such  as  carboxysomes  or  shapes 
obtained  via  coassembly  of  cationic  and  anionic  amphiphiles.  This  study  complements  and 
considerably  extends  our  recent  analysis  of  shapes  of  the  two-component  shells  in  the  absence  of 
line  tension.  Our  model  assumes  the  presence  of  the  12  disclination  defects  originating  from  the 
construction  of  a  crystal  lattice  on  a  sphere.  However,  our  results  suggest  that  the  faceting  into 
polyhedral  shapes  is  not  directly  related  to  the  defects,  even  though  their  presence  introduces 
strain  to  the  shell.  It  would  be  interesting  to  investigate  the  extent  to  which  the  defect-induced 
strain  influences  the  faceting.  In  addition,  it  would  be  useful  to  develop  a  simple  analytical 
model  that  would  provide  some  scaling  arguments  for  the  edge  length  and  width  as  a  function  of 
the  line  tension  and  bending  rigidity.  This  work  was  featured  on  the  cover  of  Soft  Matter  [1], 
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By  combining  molecular  dynamics  simulations  and  analytical  arguments  we  investigated 
the  elastic  properties  of  charged  lipid  bilayers.  We  show  that  charge  correlations  between  the 
head  groups  can  lead  to  solidification  of  a  lipid  bilayer  that  would  be  in  a  liquid  state  if  the 
charges  were  absent.  All  elastic  parameters  of  the  bilayer  such  as  the  bending  rigidity  k  and  the 
two-dimensional  Young’s  modulus  Y  are  found  to  depend  on  the  relative  charge  stoichiometric 
ratio  between  the  lipid  head  groups.  To  extract  k  we  fit  the  molecular  dynamics  data  to  a 
standard  elastic  model  for  lipid  bilayers.  Moreover,  we  obtain  the  dependence  of  the  Young’s 
modulus  on  different  charge  patterns  analytically  by  using  Ewald  summation  techniques  [10]. 
Furthermore,  we  used  an  elastic  model  to  explore  faceting  of  solid-wall  vesicles  with  elastic 
heterogeneities.  We  show  that  faceting  occurs  in  regions  where  the  vesicle  wall  is  softer,  such  as 
areas  of  reduced  wall  thicknesses  or  concentrated  in  crystalline  defects.  The  elastic 
heterogeneities  are  modeled  as  a  second  component  with  reduced  elastic  parameters.  Using 
simulated  annealing  Monte  Carlo  simulations  we  obtain  the  vesicle  shape  by  optimizing  the 
distributions  of  facets  and  boundaries.  Our  model  allows  us  to  reduce  the  effects  of  the  residual 
stress  generated  by  crystalline  defects,  and  reveals  a  robust  faceting  mechanism  into  polyhedra 
other  than  the  icosahedron  [11]. 

We  also  studied  the  mean  force  and  the  potential  of  mean  force  between  two  identical 
charged  nanoparticles  immersed  in  a  size-asymmetric  monovalent  electrolyte,  showing  that  these 
results  go  beyond  the  standard  description  provided  by  the  well-known  Derjaguin-Landau- 
Verwey-Overbeek  theory.  To  include  consistently  the  ion-size  effects,  molecular  dynamics  (MD) 
simulations  and  liquid  theory  calculations  are  performed  at  the  McMillan-Mayer  level  of 
description  in  which  the  solvent  is  taken  into  account  implicitly  as  a  background  continuum  with 
the  suitable  dielectric  constant,  see  Figure  3. 


Figure  3:  Attractive  forces  between  two  identical  charged  nanoparticles  are  observed  in 
presence  of  a  monovalent  salt  with  different  ionic  size. 

Fong-range  electrostatic  interactions  are  handled  properly  in  the  simulations  via  the  well- 
established  Ewald  sums  method  and  the  pre-averaged  Ewald  sums  approach,  originally  proposed 
for  homogeneous  ionic  fluids.  An  asymmetric  behavior  with  respect  to  the  colloidal  charge 
polarity  is  found  for  the  effective  interactions  between  two  identical  nanoparticles.  In  particular, 
short-range  attractions  are  observed  between  two  equally  charged  nanoparticles,  even  though  our 
model  does  not  include  specific  interactions;  these  attractions  are  greatly  enhanced  for  anionic 
nanoparticles  immersed  in  standard  electrolytes  where  cations  are  smaller  than  anions  [2]. 

Solutions  with  highly  charged  solutes,  thermal  fluids  of  charged  particles,  and  dense 
plasmas  show  an  immensely  rich  phase  behavior,  all  due  to  the  dominant  presence  of  the  one 
fundamental  interaction  that  sustains  the  entire  complexity  of  life,  the  electromagnetic  force.  The 
structural  and  thermodynamic  properties  of  such  systems,  and  the  mechanic  response  on  external 
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stimuli,  remain  poorly  understood,  not  merely  because  of  the  absence  of  one  general  predictive 
theoretical  framework,  but  also  due  to  the  lack  of  clear  interpretations  of  the  results  that  follow 
from  experimental  observations  and  theoretical  models.  Current  popular  approaches  are  severely 
limited  by  the  underlying  assumptions  that  formally  restrict  the  applicability  to  weakly  coupled 
systems,  i.e.  where  one  has  to  preclude  high  charge  concentrations,  self-assembly,  cluster 
formation,  or  any  significant  structure  in  the  solvent  at  all.  Correction  methods  for  highly 
charged  surfaces  and  interfaces  focus  on  a  thin  layer  near  the  boundary,  or  propose  so-called 
loop  expansions  of  virial  expansions  for  the  bulk  behavior  that,  although  aesthetic  from  a 
mathematical  point  of  view,  do  not  render  these  theories  fit  for  general  practical  purposes,  nor 
valid  for  the  coupled  systems  that  are  relevant  and  ubiquitous  in  biology,  soft  matter,  and 
applications.  During  the  grant,  a  selection  of  popular  methods  were  tested,  and  investigated  for 
improvement,  applied  to  study  ions  near  flat  dielectric  boundaries  between  two  immiscible 
electrolyte  solutions,  and  to  study  effective  interactions  between  charged,  responsive  surfaces. 
Within  a  density  functional  theory  with  a  weighted  density  approximation  (DFT/WDA),  we 
tested  several  weight  functions,  and  searched  for  consistent  ways  to  derive  them.  Synchrotron  X- 
ray  reflectivity  measurements  are  available  for  reference,  thanks  to  a  collaboration,  and 
simulation  methods  are  developed  within  the  group  to  test  the  reliability  of  the  new  models  down 
to  a  microscopic  level.  A  choice  was  finally  made  for  a  less  well-known  approach  that  was 
initially  proposed  for  the  study  of  ions  between  two  walls,  including  polarization  and  charge 
correlation  effects.  The  approach  relied  on  integral  equation  methods  that  are  well-known  and 
highly  successful  for  homogeneous  systems,  but  numerically  intractable  for  general 
inhomogeneous  systems.  By  exploiting  symmetries,  one  can  formally  map  the  two-component 
inhomogeneous  system  to  a  polydisperse  system  of  lower  dimension  that,  although  more 
complex  in  composition,  is  homogeneous,  and  hence  can  be  tackled  by  these  integral  equation 
methods.  We  find  a  physical  regime  where  these  interactions  easily  overcome  the  thermal 
energy.  The  range  is  predicted  to  be  non-mono  tonic  with  bulk  concentration,  and  both  the  range 
and  strength  are  found  to  depend  on  the  confinement,  i.e.  dependent  on  the  presence  of  other 
charged  interfaces. 

A  central  role  in  the  determination  of  the  structural  and  thermodynamic  properties  of  a 
fluid  is  played  by  the  pair  correlation  functions,  and  in  the  case  of  homogeneous  isotropic  fluids, 
the  radial  distribution  function  g(r).  On  the  one  hand,  the  radial  distribution  function  is  connected 
to  the  structure  factor  S(k),  which  is  directly  obtainable  from  scattering  experiments,  and  on  the 
other  hand,  to  the  thermodynamic  properties,  such  as  the  internal  energy,  pressure,  and 
compressibility.  Thus,  knowledge  of  the  radial  distribution  function  yields  physical  information 
both  at  the  microscopic  and  macroscopic  length  scales.  In  principle,  the  radial  distribution 
function  can  be  obtained  from  the  Omstein-Zernike  (OZ)  equation,  where  it  is  related  to  the 
direct  correlation  function  c(r),  once  an  appropriate  closure  relation  can  be  formulated.  Despite 
the  existence  of  an  exact  closure,  the  actual  calculation  requires  approximative  closures,  whose 
accuracy  depends  on  the  character  of  the  pair  potentials  between  the  particles  of  interest.  We 
presented  a  method  for  the  calculation  of  the  radial  distribution  function  g(r)  in  homogeneous 
fluids  of  charged,  hard  spheres, that  aims  to  be  accurate,  consistent,  practical,  and  applicable  for 
all  relevant  temperatures  and  densities.  The  nonlinear  Poisson-Boltzmann  equation  is  obtained 
from  an  approximate  closure  relation  of  the  Ornstein-Zernike  equation,  connecting  nonlinear 
Debye-Hiickel  theory  with  integral  equation  methods.  The  nlDH  theory  appears  quantitative  at 
low  densities  and  all  densities  at  high  temperatures  if  corrected  for  hard  sphere  correlations,  by 
assuming  pairwise  additivity  for  the  potentials  of  mean  force.  The  resulting  “mean  field”  g(r)  is 
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used  to  estimate  the  two-point  direct  correlation  function,  by  means  of  an  approach  that  we 
named  after  the  theories  it  derives  from,  the  Debye-Hiickel  extended  mean  spherical 
approximation,  or  DHEMSA.  The  method  provides  almost  identical  structural  and 
thermodynamic  information  as  molecular  dynamics  simulations,  and  other  reliable 
approximations  such  as  the  hyper-netted  chain  closure  in  a  large  part  of  parameter  space. 
Moreover,  it  is  numerically  stable  in  the  entire  regime  of  interest,  in  contrast  to  the  HNC,  and 
numerically  more  efficient  [3]. 

With  respect  to  nanoparticles,  we  worked  on  analyzing  bulk  diffusion  and  transport 
through  hydrophobic  nanochannels  of  nanoparticles  (NPs)  with  different  hydrophobic- 
hydrophilic  patterns  achieved  by  coating  a  fraction  of  the  NP  sites  with  positive  or  negative 
charges  via  explicit  solvent  molecular  dynamics  simulations,  see  Figure  4. 


Figure  4:  (a)  Nanoparticle  types:  All  have  ±6e  total  charge.  Green  and  red  represent  positive 
and  negative  charges,  respectively,  while  blue  denotes  neutral,  and  (b)  a  snapshot  of  MD 
simulation  system. 

Ten  different  charge  pattern  types  including  Janus  charged-hydrophobic  NPs  are  studied. 
The  cationic  NPs  are  more  affected  by  the  patterns  and  have  higher  diffusion  constants  and 
fluxes  than  their  anionic  NPs  counterparts.  The  NP-water  interaction  dependence  on  surface 
pattern  and  field  strength  explains  these  observations.  The  NP-water  Coulomb  interaction  of 
anionic  NPs  in  the  bulk,  which  are  much  stronger  than  the  hydrophobic  NP-water  interactions, 
are  stronger  for  NPs  with  higher  localized  charge,  and  stronger  than  in  the  cationic  NPs 
counterparts.  The  diffusion  and  transport  of  anionic  NPs  such  as  proteins  and  protein  charge 
ladders  with  the  same  total  charge  but  different  surface  charge  patterns  are  slowest  for  the 
highest  localized  charge  pattern,  which  also  adsorb  strongest  onto  surfaces.  Our  model 
demonstrates  the  separation  (by  reverse  osmosis,  capillary  electrophoresis,  or  chromatography) 
of  cationic  NPs,  including  proteins  with  equal  net  charge  but  different  surface  charge 
distributions  [4]. 

We  studied  how  polyvalent  oligonucleotide-functionalized  gold  nanoparticles  are 
remarkably  stable  in  a  cellular  environment  against  degradation  by  nucleases,  a  property  that  was 
recently  attributed  to  the  local  high  concentration  of  mono-  and  divalent  ions.  To  evaluate  this 
hypothesis  in  more  detail,  we  investigated  the  composition  of  the  ion  cloud  around  spherical 
nanoparticles  that  are  functionalized  by  stiff,  highly  charged  polyelectrolyte  chains  by  means  of 
classical  density  functional  theory  and  molecular  dynamics  simulations,  as  illustrated  in  Figure  5. 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


Figure  5:  Cell  model  (left),  and  simulation  snapshot  (right)  of  the  local  ionic  environment 
around  a  small  polyvalent  oligonucleotide-functionalized  gold  nanoparticle,  with  Na+  (red),  Cl' 
(green),  Ca2+  (cyan),  and  DNA  (blue). 

We  presented  a  cell  model  that  includes  ligands  explicitly  and  both  applies  over  the  entire 
relevant  parameter  space  and  is  in  excellent  quantitative  agreement  with  simulations.  We  studied 
the  ion  cloud  for  varying  oligonucleotide  grafting  densities  and  bulk  ionic  concentrations,  as  well 
as  different  sizes  of  nanoparticles  and  chains,  and  distinguish  a  parameter  regime  where  many- 
body  interactions  between  the  ligands  have  a  dominant  effect  on  the  local  environment.  For 
small  particles  with  high  oligonucleotide  surface  densities,  we  find  strongly  enhanced  local  salt 
concentrations,  a  large  radial  component  of  the  electric  field  between  the  ligands,  and  a 
pronounced  localization  of  divalent  ions  near  the  surface  of  the  nanoparticle,  thus  providing 
multiple  supporting  arguments  for  the  hypothesis  [5]. 

The  strategy  of  using  DNA  to  program  the  assembly  of  nanoparticles  into  macroscopic 
materials  emerged  in  the  mid-1990s.  Over  the  past  decade,  substantial  advances  have  been 
achieved  in  transforming  this  wet  chemical  technique  from  one  that  can  be  used  to  generate 
amorphous  or  pseudocrystalline  architectures  into  one  that  yields  highly  crystalline  materials 
with  a  high  degree  of  predictability  in  terms  of  crystal  type  and  lattice  parameters.  With  this 
bottom-up  approach,  spherical  nucleic  acid  gold  nanoparticle  conjugates  (SNA-GNPs)  can  be 
used  as  artificial  "atoms",  where  the  oligonucleotides  connecting  the  SNA-GNPs  are  “chemical 
bonds”  that  can  be  used  to  create  novel  one-,  two-,  and  three-dimensional  superlattices.  In 
previous  work,  six  rules  for  predicting  superlattice  structure  have  been  developed.  These  rules 
take  into  account  the  nanoparticle  size,  DNA  length,  overall  number  of  DNA  connections,  and 
sequence  complementarity  to  predict  and  understand  the  periodic  packing  of  nanoparticles  in 
discrete  lattice  types  with  lattice  constants  in  the  range  of  tens  to  hundreds  of  nanometers.  This 
degree  of  tailorability  provides  the  opportunity  to  control  the  properties  of  crystalline 
nanoparticle  architectures  with  potential  applications  in  a  variety  of  fields,  including  medical 
diagnostics,  catalysis,  energy  conversion,  and  plasmonics.  In  collaboration  with  the  group  of 
Chad  Mirkin,  we  used  molecular  dynamics  simulations  to  study  the  crystallization  of  spherical 
nucleic-acid  (SNA)  gold  nanoparticle  conjugates,  guided  by  sequence-specific  DNA 
hybridization  events.  This  is  illustrated  in  Figure  6. 
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Figure  6:  Left:  Model  DNA  chain  (a);  model  spherical  GNP  core  (b);  and  SNA-GNP  examples 
(c).  Middle:  Snapshot  of  crystal  structure  obtained  by  MD  simulations.  Right:  Mean  square 
displacement  of  larger  (top)  and  smaller  ( middle )  SNA-GNPs,  and  ( bottom )  percentage  of 
hybridization  versus  simulation  time  step. 

Binary  mixtures  of  SNA  gold  nanoparticle  conjugates  (inorganic  core  diameter  in  the  8- 
15  nm  range)  are  shown  to  assemble  into  BCC,  CsCl,  AIB2,  and  C^Si  crystalline  structures, 
depending  upon  particle  stoichiometry,  number  of  immobilized  strands  of  DNA  per  particle, 
DNA  sequence  length,  and  hydrodynamic  size  ratio  of  the  conjugates  involved  in  crystallization. 
These  data  have  been  used  to  construct  phase  diagrams  that  are  in  excellent  agreement  with 
experimental  data  from  wet-laboratory  studies  and  the  work  was  published  in  Nano  Letters  [9]. 

The  stability  of  a  DNA-protein  structure  depends,  among  other  factors,  on  the  fact  that 
small  proteins  can  unbind  and  rebind  very  quickly  to  the  double  helix.  These  events  depend  on 
the  microscopic  and  macroscopic  off-rates  of  the  proteins.  Generally  a  small  protein  will  go 
through  a  number  of  unbinding-rebinding  events  before  it  diffuses  off  in  its  surrounding  buffer. 
These  events  are  directly  associated  with  the  affinity  of  the  proteins  to  the  DNA.  We  studied,  in 
particular,  how  these  events  depend  on  the  DNA’s  shape  and  conformation.  These  events  play  a 
significant  role  in  controlling  the  dynamics  of  gene  regulation.  Our  study  was  done  by  simulating 
a  coarse-grained  model  of  a  system  of  sequence-independent  proteins  interacting  with  DNA.  We 
used  Monte-Carlo  as  our  simulation  method.  In  the  first  part  of  our  study  we  considered  only 
excluded  volume  interactions  between  the  small  proteins  and  the  double  helix.  We  investigated 
how  the  DNA’s  conformation  affects  the  protein  rebinding  dynamics.  We  studied  three  general 
cases  of  i)  a  stretched  DNA,  ii)  a  random  shaped  DNA,  and  iii)  a  DNA  with  a  globule  structure 
confined  in  a  sphere  (where  the  spheres  radius  is  less  than  the  radius  of  gyration  of  the  DNA 
polymer).  To  represent  the  microscopic  and  macroscopic  off-rates,  we  consider  two  time  scales 
associated  with  the  protein  dynamics.  In  the  case  of  stretched  DNA,  we  found  a  logarithmic 
dependence  between  the  DNA’s  length  and  the  rebinding  events.  In  the  case  of  a  random  shaped 
DNA,  we  found  the  two  above  quantities  to  be  related  in  a  power  law  form.  We  generated  two 
different  powers  in  the  case  of  the  unconfined  and  confined  polymers.  The  power  laws  and  the 
logarithmic  form  agree  with  our  theoretical  scaling  arguments.  In  the  second  part  of  our  study, 
we  modified  the  system  to  include  the  charge  of  a  specific  sequence-independent  protein  (FIS)  as 
well  as  the  DNA  charge.  We  included  the  Coulomb  interaction  to  investigate  how  the  DNA 
conformation  affects  the  dynamics  of  the  sequence-independent  proteins  binding  to  it,  in  the 
three  cases  mentioned  above. 
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Combining  theory  and  simulations  to  study  charged  fluids,  lamin  meshworks  and 

structured  membranes  for  elucidating  structure  and  function  relationship. 


Figure  1:  Charged  particles  in  a  liquid  are  enveloped  by  a  cloud  of  opposite  charge  that  deforms 
near  boundaries,  and  creates  a  force  away  from  the  boundary.  Electrostaticcdly,  boundaries  act 
as  mirrors,  causing  additional  attractions  or  repulsions.  Theory  reveals  how  ions  influence 
forces  between  boundaries  in  an  intricate  way,  and  vice  versa,  with  important  implications  for 
biological  systems  (Artistic  impression  by  D.  Spjut). 

Fluids  of  charged  particles  act  as  the  supporting  medium  for  chemical  reactions  and  physical, 
dynamical,  and  biological  processes.  Micro-  and  nanoscopic  polarizable  objects  deform  the  local 
structure  in  an  electrolytic  background.  Vice  versa,  the  forces  between  the  objects  are  regulated 
by  the  cohesive  properties  of  the  background  (Figure  1).  We  studied  the  range  and  strength  of 
these  forces  and  the  microscopic  origin  from  which  they  emerge  [1],  providing  an  intuitively 
appealing  overview  to  aid  and  enhance  predictability  and  control  in  experiments.  We  described 
several  distinct  ion-induced  forces  in  aqueous  solutions  of  monovalent  ions  at  salt  concentrations 
ranging  from  0.01  to  1  M  that  are  expected  to  compete  for  dominance  with  the  well-known 
screened  Coulomb  forces.  The  concept  of  soft  structure  was  introduced  to  connect  the  induced 
forces  to  the  local  microscopic  structure  in  the  ionic  fluid  and  visualize  the  deformation  of  the 
local  environment  around  the  ions  near  several  types  of  boundaries  that  are  neutral,  adsorbing, 
charged,  polarizable,  or  a  combination  of  these  properties.  Until  recently,  it  was  computationally 
costly  to  simulate  the  effects  of  charges  on  inhomogeneous  dielectric  media  and  vice  versa,  since 
it  required  solving  the  Poisson  equation  at  each  simulation  step.  In  a  related  study,  we  developed 
a  judiciously  designed  variational  formulation,  eliminating  the  need  to  solve  the  Poison  equation 
explicitly. 
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Figure  2:  Experimental  and  computational  images  of  nuclei  showing  the  segregation  of  two 
types  of  lamin  proteins  in  cell  nuclei.  A-type  lamin  is  shown  in  green,  while  B-type  is  shown  in 
red  ( Image  modified  from  simulation  snapshots  and  TEMs  by  M.  Seniw). 

Much  of  the  structural  stability  of  the  cells ’s  nucleus  comes  from  meshworks  of  intermediate 
filament  proteins  known  as  lamins  forming  the  inner  layer  of  the  nuclear  envelope  called  the 
nuclear  lamina.  These  lamin  meshworks  additionally  play  a  role  in  gene  expression. 
Abnormalities  in  nuclear  shape  are  associated  with  a  variety  of  pathologies,  including  some 
forms  of  cancer  and  Hutchinson-Gilford  Progeria  Syndrome,  and  often  include  protruding 
structures  termed  nuclear  blebs.  These  nuclear  blebs  are  related  to  pathological  gene  expression. 
However,  little  is  known  about  how  and  why  blebs  form.  We  developed  a  minimal  continuum 
elastic  model  of  a  lamin  meshwork  that  we  use  to  investigate  which  aspects  of  the  meshwork 
could  be  responsible  for  bleb  formation  (Figure  2).  The  model  produces  structures  with 
comparable  morphologies  and  distributions  of  lamin  types  as  in  real  pathological  nuclei  [2]. 
Thus,  preventing  this  lamin  segregation  could  be  a  route  to  prevent  bleb  formation,  which  could 
be  used  as  a  potential  therapy  for  the  pathologies  associated  with  nuclear  blebs. 


Figure  3:  Atomistic  simulations,  and  TEM  images  of  faceted  and  irregular  polyhedral  with 
hexagonal  crystalline  symmetry,  stable  in  closed  shaped  and  high  salt  concentration. 

A  considerable  part  of  our  work  has  been  aimed  at  elucidating  structure  and  function  relationship 
in  membranes.  A  large  variety  of  amphiphillic  molecules  with  charged  groups  self-assemble  into 
closed  structures  such  as  viral  capsids,  halophilic  organisms  and  bacterial  microcompartments. 
We  formulated  a  generalized  elastic  model  for  inhomogeneous  shells,  and  demonstrated  that  co¬ 
assembled  shells  with  two  elastic  components  buckle  into  irregular  and  regular  polyhedra  besides 
icosahedra,  such  as  dodecahedra,  octahedra,  tetrahedra,  and  hosohedra  shells  via  a  mechanism 
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that  explains  many  observations,  predicts  a  new  family  of  polyhedral  shells,  and  provides  the 
principles  for  designing  micro-containers  with  specific  shapes  and  symmetries  for  numerous 
applications  in  materials  and  life  sciences  [3].  For  instance,  designing  polyhedral  shells  with 
specific  structures  can  lead  to  efficient  nano-reactors  that  will  perform  specific  catalytic 
functions.  In  a  collaborative  effort  with  experimental  collaborators,  we  modeled  and  assembled 
shells  composed  of  oppositely  charged  lipids,  and  were  able  to  regulate  the  shape  of  the  resulting 
nanocontainers  via  pH  changes,  as  evidenced  by  Transmission  Electron  Microscopy  (TEM, 
Figure  3)  and  x-ray  scattering  [4].  Vesicles  or  nano-containers  with  crystalline  properties  show 
great  promise  in  nanomaterial  fabrication  due  to  their  excellent  mechanical  stability  at  high  salt 
concentration  environments.  We  also  studied  by  atomistic  simulations,  the  effects  of  counterion 
valency  on  anionic  membranes.  Our  work  showed  that  the  inter-tail  van  der  Waals  interaction 
has  a  dominant  role  in  the  electrostatic  driven  transition  from  disordered  liquid-crystalline  phase 
to  the  ordered  gel  phase.  Using  monovalent  counterions,  such  phase  transitions  occur  at  lower 
temperatures  than  in  scenarios  where  multivalent  counterions  are  used.  Moreover,  within  the 
model  of  the  Helfrich  elasticity  theory,  we  studied  shapes  of  pored  membranes,  and  show  that 
the  mean  curvature  leads  to  budding-like  behavior,  while  the  Gaussian  curvature  flattens 
membranes  near  the  pore  area.  These  findings  were  well  confirmed  in  simulations.  And  our  work 
also  explains  shapes  of  pored  membranes  that  are  observed  in  experiments. 

Motivated  by  the  remarkable  stability  against  degradation  by  nucleases  of  functionalized 
spherical  nuclei  acids-gold  (SNA-Au)  nanoparticles  in  blood,  we  modeled  the  ion  cloud  around 
them  by  means  of  classical  density  functional  theory  and  by  computer  simulations.  For  small 
particles  with  high  density  of  oligonucleotides,  we  find  that  the  local  salt  concentration  is 
enhanced  with  a  pronounced  localization  of  divalent  ions  near  the  particle  surface.  This  strong 
cloud  of  sodium  and  calcium  ions  stabilizes  the  particle  complex  in  blood,  which  may  prevent 
enzymes  from  accessing  the  DNA  and  digesting  it.  We  also  developed  coarse-grained  schemes  to 
understand  and  optimize  programmable  assembly  [5]  of  grafted  nuclei  acid-gold  nanoparticles. 
In  particular,  our  MD  simulations  have  identified  key  elements,  such  as  optimal  strength  of  DNA 
linkers  and  percentage  of  DNA  hybridizations,  to  successfully  assemble  nanoparticles  into  a 
large  variety  of  superlattices.  The  MD  simulations  have  also  elucidated  the  role  that 
nanostructure  coordination  plays  in  the  ordering  of  superlattice  assemblies.  We  constructed 
detailed  phase  diagrams  that  closely  match  the  experimental  observations,  and  showed  that 
highly  dynamic  hybridization  processes  between  the  semi-flexible  grafted  chains  enable 
crystallization  of  the  functionalized  nanoparticles.  A  model  that  efficiently  captures  the 
competing  electrostatic  and  DNA  hybridization  interactions  in  the  assembly  process  was 
developed  to  determine  the  dynamics  of  the  coarsening  process  that  leads  to  various  faceted 
crystals  of  functionalized  nanoparticles. 

Monte  Carlo  Simulations  for  the  Optimization  of  Self-replication 

Understanding  the  key  ingredients  of  self-replication  is  critical  for  developing  self-sustaining 
systems  in  the  laboratory.  We  proposed  a  scheme  for  self-replication  where  asymmetric 
interactions  in  colloids  are  used  to  find  optimal  self-replication  conditions  by  controlling  the 
input  of  energy.  We  generalized  a  recently  developed  kinetic  Monte  Carlo  algorithm  to  treat  both 
translational  and  rotational  motions  of  Brownian  anisotropic  colloids.  We  found  two  main 
findings  from  our  simulations:  First,  by  fine-tuning  the  particle  interactions,  highly  accurate  self¬ 
replication  is  achievable  with  a  moderate  sacrifice  of  reaction  speed.  Second,  with  the 
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introduction  of  energy  cycling  to  enable  periodic  assembly/disassembly  of  the  system's 
components  the  replicator  population  grows  exponentially.  The  exponential  growth  constant  is  a 
non-mono  tonic  function  of  the  period  of  the  pulsed  energy  delivery. 

Self-replication  also  permits  organisms  to  reproduce  and  sustain  complex  cellular  functions. 
These  desirable  properties  have  motivated  extensive  interdisciplinary  efforts  to  develop  artificial 
self-replication.  While  molecular  self-replication  has  been  extensively  explored,  colloidal  self¬ 
replication  is  less  developed  despite  its  promise  for  unique  functionality.  One  major  obstacle  in 
colloidal  self-replication  is  that  cyclic  energy  is  required  for  efficient  self-replication.  We 
showed  that  magnetic  colloids  driven  by  magnetic  fields  can  create  an  efficient  self-replication 
system.  Single  binding  sites  allow  the  formation  of  colloid  dimers,  which  serve  as  replication 
templates.  Magnetic  fields  are  used  to  drive  complementary  elements  from  the  solute  to  bind  to 
templates  and  to  separate  templates  from  each  other.  We  show  via  theory  and  simulations  that 
this  system  exhibits  exponential  growth  while  making  minimal  demands  with  regards  to 
synthesis.  Using  a  magnetic  basis  allows  this  system  to  operate  in  complex  environments  such  as 
living  tissue. 

Understanding  dielectric  heterogeneities  and  ion  correlations  in  the  organization  principle 
of  ion  distribution,  polymer  electrolytes,  and  the  coupling  of  electrostatics  and  geometry  in 
charged  membranes  and  ribbons. 

Small  nanoparticles,  globular  proteins,  viral  capsids,  and  other  nanoscopic  biomolecules  usually 
display  dielectric  properties  that  are  different  from  those  of  the  medium  in  which  they  are 
dispersed.  These  dielectric  heterogeneities  can  significantly  influence  the  surrounding  ion 
distribution,  which  determines  the  self-assembly  and  colloidal  stability  of  these  nanoparticles  in 
solution.  We  studied  the  impact  of  a  dielectric  discontinuity  in  the  structural  and  thermodynamic 
properties  of  a  spherical  nanoparticle  made  of  different  dielectric  materials  when  it  is  immersed 
in  a  charge-asymmetric  1  :z  supporting  electrolyte.  The  mean  electrostatic  potential,  integrated 
charge,  and  ionic  profiles  were  analyzed  as  a  function  of  both  the  salt  concentration  and  the 
nanoparticle's  valence  via  Monte  Carlo  simulations  and  the  nonlinear  Poisson-Boltzmann  theory. 
We  observed  that  the  electrostatic  screening  and  charge  neutralization  near  the  surface  of  a 
nanoparticle  increase  when  the  nanoparticle's  dielectric  permittivity  increases  in  all  instances. 

For  1:1  salts,  this  effect  is  small  and  the  nonlinear  Poisson-Boltzmann  theory  displays  a  good 
agreement  with  simulation  results.  Nevertheless,  significant  deviations  are  displayed  by  the  mean 
field  scheme  regarding  simulation  results  in  the  presence  of  multivalent  ions.  In  particular,  for 
trivalent  counterions  we  observed  that  increasing  the  dielectric  permittivity  or  the  valence  of  the 
nanoparticle  decreases  the  critical  salt  concentration  at  which  a  sign  inversion  of  the  mean 
electrostatic  potential  at  the  Helmholtz  plane  occurs.  This  is  closely  related  to  the  behavior  of  the 
zeta  potential  and  the  electrophoretic  mobility.  Moreover,  we  observed  that  the  phenomenon  of 
surface  charge  amplification,  or  the  augmenting  of  the  net  charge  of  a  nanoparticle  by  the 
adsorption  of  like-charged  ions  on  its  surface,  can  be  promoted  by  polarization  effects  in  weakly 
charged  spherical  nanoparticles  with  low  dielectric  permittivity. 
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Figurel:  Schematic  representation  of  the  model  system.  The  dielectric  constant  at  the  interior  of 
the  nanoparticle  is  sM.  The  dielectric  constant  outside  the  nanoparticle,  eS,  is  the  same  for  the 
ions  and  the  solvent. 

We  also  analyzed  polymer  electrolytes.  Polymer  electrolytes,  or  polyelectrolytes,  combine 
mechanical  flexibility  and  highly  tunable  electrochemical  properties,  and  therefore  are  promising 
candidate  materials  for  energy  storage  devices,  such  as  polymer  electrolyte  membrane  fuel  cells 
(PEMFC)  and  rechargeable  Lithium-ion  (Li-ion)  batteries.  The  phase  behavior  of 
polyelectrolytes  is  especially  important,  as  this  dictates  the  formation  of  nanostructures  within 
the  material  that  guides  ion  transport.  Thus,  in  order  to  optimize  transport  of  ions  through  the 
material  and  increase  efficiency  of  energy  storage  devices,  it  is  crucial  to  develop  predictive 
tools  that  can  describe  and  explain  the  complex  behavior  of  polyelectrolytes.  We  have  developed 
a  hybrid  self-consistent  field  and  liquid  state  theories  (SCFT-LS)  to  incorporate  ionic 
correlations  at  multiple  length  scales,  leading  to  an  accurate  description  of  phases  formed  by 
polyelectrolyte  blends  and  copolymers.  To  date,  we  have  shown  that  the  addition  of  ionic 
correlations  can  lead  to  enhanced  phase  separation  and  the  formation  of  ion  clusters. 
Furthermore,  we  have  identified  a  triple  point  in  an  effectively  two-component  system  and  a 
eutectic-like  transition  into  a  miscible  region.  We  believe  that  our  findings  can  further  inform 
synthesis  and  design  of  miscible  polyelectrolyte  blends  toward  energy  storage  applications. 
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Figure  2.  Phase  diagram  derived  from  free  energy  analysis  for  a  symmetric  polymer  with 
number  of  monomers  N  =  40  and  farction  of  charge  fq  =  0.2,  at  varying  values  of  the  ionic 
coupling  parameter  in  the  medium  /  ’.  Enhanced  phase  separation  is  observed  at  f  >  14.91.  The 
coexistence  region  splits  into  t wo  distinct  regions  at  T  =  14.91  and  T  =  16.33,  where  the  splitting 
point  corresponds  to  the  triple  point,  where  the  system  undergoes  a  eutectic-like  transition  from 
a  mixed  state  to  two  distinctive  phases. 


Manipulating  the  shape  of  nanoscale  objects  in  a  controllable  fashion  is  at  the  heart  of  designing 
materials  that  act  as  building  blocks  for  self-assembly  or  serve  as  targeted  drug  delivery  carriers. 
Inducing  shape  deformations  by  controlling  external  parameters  is  also  an  important  way  of 
designing  biomimetic  membranes.  We  demonstrated  that  electrostatics  can  be  used  as  a  tool  to 
manipulate  the  shape  of  soft,  closed  membranes  by  tuning  environmental  conditions  such  as  the 
electrolyte  concentration  in  the  medium.  Using  a  molecular  dynamics-based  simulated  annealing 
procedure,  we  investigated  charged  elastic  shells  that  do  not  exchange  material  with  their 
environment,  such  as  elastic  membranes  formed  in  emulsions  or  synthetic  nanocontainers.  We 
found  that  by  decreasing  the  salt  concentration  or  increasing  the  total  charge  on  the  shell's 
surface,  the  spherical  symmetry  is  broken,  leading  to  the  formation  of  ellipsoids,  discs,  and 
bowls.  Shape  changes  are  accompanied  by  a  significant  lowering  of  the  electrostatic  energy  and 
a  rise  in  the  surface  area  of  the  shell.  To  substantiate  our  simulation  findings,  we  showed 
analytically  that  a  uniformly  charged  disc  has  a  lower  Coulomb  energy  than  a  sphere  of  the  same 
volume.  Further,  we  tested  the  robustness  of  our  results  by  including  the  effects  of  charge 
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renormalization  in  the  analysis  of  the  shape  transitions  and  find  the  latter  to  be  feasible  for  a 
wide  range  of  shell  volume  fractions. 
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Figure  3.  Snapshots  of  minimum- energy  conformations  of  charged  elastic  nano  shells  for  three 
different  bending  rigidities  k  =  1,  5,  and  10  (columns  from  left  to  right).  In  each  column  the 
electrolyte  concentration  c(M)  decreases  (rows  from  top  to  bottom )  as  c  =  1,  0.1,  0.05,  and 
0.005.  Different  colors  suggest  different  concentration  values,  with  red  being  the  highest  c  under 
study  and  purple  corresponding  to  the  lowest  c.  As  the  concentration  is  lowered,  the  range  of 
electrostatic  interactions  is  increased,  leading  to  the  variation  in  the  shape  of  the  nanoshell.  For 
the  concentration  range  investigated,  softer  shells  form  bowl-like  structures,  wheras  more  rigid 
vesicles  form  ellipsoidal  and  disc-like  shapes.  All  of  the  above  nanostructures  have  the  same 
total  surface  charge  and  volume,  fixed  to  values  associated  with  the  spherical  conformation. 

We  provided  analytical  expressions  for  the  electrostatic  energy  of  uniformly  charged  prolate  and 
oblate  spheroidal  shells.  We  found  that  uniformly  charged  prolate  spheroids  of  eccentricity 
greater  than  0.9  have  lower  Coulomb  energy  than  a  sphere  of  the  same  area.  For  the  volume- 
constrained  case,  we  found  that  a  sphere  has  the  highest  Coulomb  energy  among  all  spheroidal 
shells.  Further,  we  derived  the  change  in  the  Coulomb  energy  of  a  uniformly  charged  shell  due  to 
small,  area-conserving  perturbations  on  the  spherical  shape.  Our  perturbation  calculations 
showed  that  buckling-type  deformations  on  a  sphere  can  lower  the  Coulomb  energy.  Finally,  we 
considered  the  possibility  of  counterion  condensation  on  the  spheroidal  shell  surface.  We 
employed  the  Manning-Oosawa  two-state  model  approximation  to  evaluate  the  renormalized 
surface  charge  and  analyze  the  behavior  of  the  equilibrium  free  energy  as  a  function  of  the  shell's 
aspect  ratio  for  both  area-constrained  and  volume-constrained  cases.  Counterion  condensation 
favors  the  formation  of  spheroidal  structures  over  a  sphere  of  equal  area  for  high  values  of  shell 
volume  fractions. 

With  the  combination  of  numerical  simulations  and  mathematical  analysis,  we  extended  the 
electrostatic  analysis  from  charged  vesicles  to  charged  ribbons  which  were  recently  synthesized 
in  experiments  with  promising  applications  in  realizing  several  biological  functions  and 
designing  new  structures  in  nanotechnologies.  We  compiled  codes  to  perform  numerical 
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experiments  and  investigate  the  rich  morphologies  of  electrically  charged  flexible  ribbon 
immersed  in  electrolyte  solutions.  Simulations  show  the  hierarchical  buckling  of  the  ribbon  from 
its  initially  flat  shape  to  the  undulated  and  then  to  the  out-of-plane  twisted  conformations  with 
the  variation  of  salt  concentration.  We  used  the  tool  of  classical  differential  geometry  to  analyze 
this  conformal  transformation  and  revealed  that  the  deformation  of  the  ribbon  originates  from  the 
electrostatically  driven  stretching  that  fundamentally  changes  the  metric  distribution  over  the 
ribbon  surface.  In  this  study,  we  also  identified  the  basic  modes  adopted  by  the  ribbon  to  reshape 
itself  for  lowering  the  energy.  The  screening  length  controlled  buckling  of  the  ribbon  suggests  a 
convenient  way  in  experiment  and  applications  to  manipulate  ribbon  morphologies  by  simply 
changing  the  salt  concentration. 


In  soft  crystals,  behaviors  of  topological  defects  are  strongly  analogous  to  electric  charges. 
Vacancies  represent  an  important  class  of  defects,  and  their  behaviors  can  be  strongly  coupled 
with  relevant  material  properties.  A  vacancy  can  be  regarded  as  a  compound  topological  defect 
that  is  composed  of  several  topologically  charged  disclinations.  In  this  work,  we  used  LAMMPS 
to  perform  MD  simulations  to  systematically  study  the  dynamics  of  generic  n-point  vacancies  in 
two-dimensional  Lennard-Jones  crystals  in  several  thermodynamic  states.  We  focused  on  the 
NPT  emsemble  with  zero  external  pressure,  while  the  NAT  (fixed  number  of  particles,  system 
area  and  temperature)  ensemble  was  employed  to  study  the  dependence  of  the  vacancy  mobility 
on  the  particle  density.  Simulations  revealed  the  spectrum  of  distinct,  size-dependent  vacancy 
dynamics,  including  the  nonmonotonously  varying  diffusive  mobilities  of  one-,  two-  and  three- 
point  vacancies,  and  several  healing  routines  of  linear  vacancies.  Specifically,  we  numerically 
observed  significantly  faster  diffusion  of  the  two-point  vacancy  that  can  be  attributed  to  its 
rotational  degree  of  freedom.  The  high  mobility  of  the  two-point  vacancies  opens  the  possibility 
of  doping  two-point  vacancies  into  atomic  materials  to  enhance  atomic  migration.  The  rich 
physics  of  vacancies  revealed  in  this  study  have  implications  in  the  engineering  of  defects  in 
extensive  crystalline  materials  for  desired  properties. 
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The  topological  defect  structure  associated  with  the  one-point  vacancy  in  a  perfect  hexagonal 
lattice  (a)  and  at  finite  temperature  (b).  The  red,  blue,  and  black  dots  represent  five-,  seven-,  and 
eight-fold  disclinations,  respectively.  A  slight  fluctuation  of  the  particles  gives  rise  to  distinct 
defect  motifs.  The  region  of  the  vacancy  is  shadowed  in  green. 
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Abstract 

A  challenge  facing  modem  materials  science  research  is  how  to  design  and  create  novel 
assemblies  by  controlling  properties  of  nanoscale  building  blocks.  Larger  by  over  two  orders 
of  magnitude  than  conventional  atoms,  nanoparticles  create  materials  possessing  unique 
properties  and  offering  broad  applications  in  plasmonics,  catalysis,  photonics,  etc.  Nucleic- 
acid  coated  nanoparticles,  which  emerged  in  the  mid-1990s,  provide  a  unique  platform  in 
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which  components  such  as  nanoparticle  size,  shape,  and  composition  along  with  DNA 
length,  sequence,  and  coating  density  can  all  be  modulated  at  will,  thus  allowing  the  identity 
of  the  building  block  and  its  bonding  behavior  to  be  independently  tuned.  In  the  following 
decades,  the  focus  in  this  field  has  shifted  from  assembling  amorphous  materials  to 
constructing  basic  crystalline  structures,  and  subsequently  to  versatile  one-,  two-,  and  three- 
dimensional  assemblies  of  anisotropic  nanoparticles.  Nowadays,  defect-free  single  crystals 
have  been  realized,  providing  a  promising  feedstock  for  optically/mechanically  functional 
devices.  4  To  better  design  and  predict  novel  assemblies,  we  apply  molecular  dynamics 
simulations  alongside  experiments  to  investigate  the  microscopic  mechanism  and  identify 
key  ingredients  to  a  successful  crystallization.  A  scale-accurate  coarse-grained  model  with 
explicit  DNA  chains  faithfully  captures  the  relevant  contributions  to  the  kinetics  of  the  DNA 
hybridization  process.  The  model  proves  robust  such  that  completely  random  initial 
configurations  can  self-assemble  to  recover  all  experimentally  reported  binary  superlattices 
including  body-centered  cubic,  CsCl,  A1B2,  Cr3Si  and  Cs6C60  symmetries.  Based  on  this 
simulation  approach,  we  map  phase  diagrams  for  different  crystal  symmetries,  and  propose 
suitable  DNA  linker  sequences  for  future  nanomaterials  design.  Faceted,  single  crystalline 
microcrystals  consisting  of  DNA-functionalized  nanospheres  or  socalled  ‘programmable 
atom  equivalents’  are  synthesized  using  a  slow-cooling  approach.  We  show  that  nanoparticle 
crystals  assembled  in  this  manner  form  the  Wulff  equilibrium  crystal  structure  expected  from 
multi-scale  modeling  and  simulations.  Using  the  explicit-DNA  model  we  calculate  surface 
energy  values  for  this  system  to  predict  the  equilibrium  polyhedra.  Using  a  colloidal  model 
with  implicit  DNA  we  study  the  crystal  growth  and  rationalize  the  observed  crystal  shape. 
Despite  operating  at  a  much  larger  length  scale  and  using  fundamentally  different 
interactions  to  drive  assembly,  the  observed  shape  of  the  nanoparticle  crystals  is  identical  to 
the  expected  equilibrium  crystal  structure  of  a  body-centered  cubic  packing  of  atoms.  Thus, 
this  finding  establishes  that  DNA  hybridization  can  direct  nanoparticle  assembly  along  a 
pathway  that  mimics  atomic  crystallization.  We  further  study  the  effect  of  highly  active 
hybridization  on  thermal  fluctuations  at  surfaces.  A  mathematical  relationship  bridging 
controllable  design  parameters  and  surface  energy  fluctuations  has  been  derived  and 
validated  via  simulations.  Based  on  this  relationship,  we  suggest  optimal  design  parameters 
favoring  future  design  of  stable  single  crystal  polyhedra. 

2.  Demers,  M.  F.  (2012).  Curvature-driven  pattern  formation  in  multicomponent 

membranes  (Order  No.  3547829).  Available  from  ProQuest  Dissertations  &  Theses  Global. 
(1269158445).  Retrieved  from 

http://search.proquest.eom/docview/l  269 1 5  8445  ?accountid=l  286 1 

Abstract 

Multicomponent  liquid  membranes  occur  in  many  important  physical  systems  and  offer 
promise  in  the  rational  design  of  materials.  This  promise  is  due  in  large  part  to  their  versatile 
phase  behavior.  Under  the  right  circumstances,  distinct  physical  properties  of  the  components 
can  lead  to  the  spontaneous  ordering  of  membrane  components  into  patterns.  This  thesis 
contains  a  study  of  multicomponent  membranes  whose  patterns  arise  from  component- 
specific  shape  preferences.  These  preferences  couple  the  membrane’s  extrinsic  and  intrinsic 
geometries,  since  the  membrane’s  degrees  of  freedom  include  both  its  shape  in  space  and  its 
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in-membrane  component  arrangement.  A  continuum  theory  is  developed  for  a 
multicomponent  membrane  with  shape-composition  coupling.  A  general  scheme  is  presented 
for  classifying  strongly  segregated  membrane  patterns  according  to  the  topology  of 
component  domains.  This  model  is  studied  numerically  and  analytically.  In  the  numerical 
study,  a  discretized  model  is  formulated  for  the  case  of  a  strongly  segregated  three-phase 
vesicle.  Minimal  energy  configurations  are  found  using  simulated  4  annealing  Monte  Carlo 
simulations.  Phase  diagrams  are  constructed  for  a  number  of  control  parameter  pairs, 
exhibiting  a  wide  variety  of  patterns.  An  effective  attraction  between  components  of  largest 
and  smallest  spontaneous  curvature  is  observed  and  characterized.  In  the  analytic  study, 
solutions  for  minimal  surface  shape  in  known  patterns  are  computed  for  select  tractable 
cases.  These  solutions  are  applicable  to  an  arbitrary  number  of  phase  types,  and  applied  to 
the  case  of  a  three-phase  membrane. 
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NY. 
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Microcompartments”,  Telluride  Workshop  on  Polymer  Physics,  June  20-24,  2011, 
Telluride,  CO. 
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111.  G.  Ivan  Guerrero- Garcia,  P.  Gonzalez-Mozuelos,  and  M.  Olvera  de  la  Cruz,  “On  the 
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117.  V.  Jadhao,  F.  J.  Solis,  G.  Guerrero-Garcia,  M.  Olvera  de  la  Cruz,  “Towards 
simulation  of  charges  in  the  presence  of  varying  dielectric  response”,  American  Physical 
Society  March  Meeting,  Dallas,  TX,  March  21-25,  2011. 
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Physical  Society  March  Meeting,  Dallas,  TX,  March  21-25,  2011. 

124.  M.  Olvera  de  la  Cruz 

125.  14A.  Parsaeian,  J.  F.  Marko,  M.  Olvera  de  la  Cruz,  “  Binding-rebinding  dynamics  of 
proteins  interacting  non-  specfically  with  a  long  DNA  molecule”,  American  Physical 
Society  March  Meeting,  Dallas,  TX,  March  21-25,  2011. 

126.  *M.  Olvera  de  la  Cruz  “Regular  and  Irregular  Polyhedra  in  Multi-Component 
Crystalline  Shells",  Fay  Ajzenberg-Selove  Colloquium,  Physics  Department,  University 
of  Wisconsin,  Madison,  Feb.  18,  2011. 

127.  M.  Olvera  de  la  Cruz  “Regular  and  Irregular  Polyhedra  in  Multi-Component  Elastic 
Membranes”  Workshop  on  Self- Assembled  Bio-Inspired  Materials  for  Energy,  Argonne, 
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128.  *M.  Olvera  de  la  Cruz  “Heterogeneous  Membranes”  Colloquium,  Department  of 
Chemical  Engineering,  University  of  Illinois  at  Chicago,  January  13,  2011. 

129.  M.  Olvera  de  la  Cmz,  “Surprises  in  Heterogeneous  Elastic  Membranes”  Colloquium, 
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130.  M.  Olvera  de  la  Cruz,  “Ionic  Membranes  and  Gels”  Plenary  Lecture,  2nd 
International  Soft  Matter  Conference  (ISMC  2010),  Granada  Spain  July  5-8,  2010. 

131.  M.  Olvera  de  la  Cruz,  “Heterogeneous  Elastic  Membranes”  Self-assembly  in  Biology 
and  Materials  Science  Workshop,  Huatulco,  Oaxaca,  June  9-11,  2010. 

132.  M.  Olvera  de  la  Cruz,  “Symmetries  Broken  by  Electrostatics  in  Nanoscale  Ionic 
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Prof.  Monica  Olvera  de  la  Cruz 

•  2013-2015  Basic  Energy  Sciences  Advisory  Committee,  Department  of  Energy 

•  2014  National  Science  Foundation  Advisory  Committee  for  International  Science  and 
Engineering 

•  2013  Derieux  Lecture,  Department  of  Physics,  North  Carolina  State  University 

•  2013  Distinguished  Lecturer,  Mathematical  Physical  Sciences  Directorate,  National 
Science  Foundation 

•  2012  Elected  Member  of  the  National  Academy  of  Sciences 

•  2011  Fay  Ajzenberg-Selove  Colloquium  Speaker,  Physics  Department,  University  of 
Wisconsin,  Madison 

•  2010  Special  Civil  Merit  Award,  State  of  Guerrero,  Mexico 

•  2010  American  Academy  of  Arts  and  Sciences  Fellow 

•  2010-2012  Chair,  Condensed  Matter  and  Materials  Research  Committee,  National 
Research  Council,  the  National  Academy  of  Sciences. 
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•  2009-2015  Board  of  Physics  and  Astronomy,  National  Research  Council,  the  National 

Academy  of  Sciences  (membership  was  renewed  in  2011-13  and  2013-15) 

Dr.  Chloe  Funkhouser 

June  2012  Most  Novel  Project  prize  for  poster  entitled  " Modeling  and  Simulations  of  the 
Nuclear  Lamina:  Nuclear  Blebbing"  at  the  12th  biennial  Gordon  Conference  on 
Intermediate  Filaments. 

Dr.  Charles  Sing 

2012-2014  Inaugural  International  Institute  of  Nanotechnology  Postdoctoral  Fellowship.  This 
fellowship  provides  50%  of  the  funding  for  Dr.  Sing,  with  the  other  half  funded  by 
Pi’s  NSSEFF  award. 

Change  in  AFOSR  program  manager,  if  any: 

In  year  1,  the  program  manager  was  Dr.  Djuana  Lea.  The  program  manager  thereafter  was  Dr. 
Julie  Moses. 
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Program  Codes 


#include  <stdlib.h> 

#include  <stdio.h> 

#include  <math.h> 

#include  <string.h> 

#include  <iostream> 

#include  <time.h> 

#include  <iomanip> 

#include  <fstream> 
using  namespace  std; 

#include  "utils/nr. h" 

#include  "gnuplot  i.hpp" 
#include  <gsl/gsl  dht.h> 
#include  <gsl/gsl_sf_bessel . h> 
#include  <gsl/gsl  matrix. h> 
#include  <gsl/gsl  matrix. h> 
#include  <gsl/gsl  linalg.h> 
#include  <gsl/gsl_rng.h> 


#if  defined (WIN32 )  | |  defined (  WIN32)  | |  defined (  WIN32 _ )  | |  defined (  TOS_WIN  ) 

#include  <conio.h>  //for  getchf),  needed  in  wait_for_key ( ) 

#include  <windows.h>  //for  Sleep () 

#endif 

void  wait  for  key(); 

#def ine  pi  3.141592653589793238462643 

#def ine  NA  0.60221415 

#def ine  eO  8 . 854187817620e-12 

#def ine  e  1 . 60217646e-19 

#def ine  kB  1 . 3806503e-23 

#define  T  293.0 

#define  ew  80.1  /*  at  293  K  */  //78.4 

#define  Large  lelO 


class  CoulombFluid  { 

Mat3D  DP  h,  c,  y,  newh,  hlnit,  hFin,  newg,  clnit,  cFin,  newc,  u,  uHT,  uReg,  uRegHT,  Qs,  QsHT,  hFT; 

Mat  DP  delta,  htest,  mu,  newMu,  Zcorr; 

Vec  DP  n,  nOld,  z,  dz,  r,  kFT; 

double  csl,  cs2,  1B1,  1B2,  kappal,  kappa2,  Rl,  R2,  ap,  am,  el,  e2,  e3,  H,  HO,  qp,  qm,  epsilon,  phiD,  muExlp,  muExlm,  muEx2p,  muEx2m,  temp,  aReg,  depth,  BulkCutoff,  Vtot, GridCutof f , Htot 

double  *dc, *tc, *dcHT, *tcHT,  *cp,  *cm,  *QDNA,  *phi,  *Vextp,  *Vextm,  *cpMF,  *cmMF,  *phiMF,  *cpAN,  *cmAN,  *phiAN,  *muexp,  *muexm,  *cplnit,  *cmlnit,  *cpFin,  *cmFin; 

double  *Fexc,  *Fid,  *Fext,  *FexcDH,  *Pzz,  *Z1Z1,  *Z2Z2,  *Z1Z2,  *NP,  *NM,  *qpv,  *qmv,  *apv,  *amv,  *Hf,  *Theta,  *ThetaGauss,  cslp,  cslm,  cs2p,  cs2m,  Vlength,  Lw,  period; 

double  errmax, errmaxO, err, tolerance, alpha, alphaO [2] ,  Fref,  sigma,  sigmaDNA; 

double  *errMem,  errLimitSq,  dummy,  alphaMin; 

int  Nr,  Nz,  Nb,  Nf,  Nl,  nf,  i,  j,  k,  iterations,  evaluations,  interface,  jmax,  kmax,  Nerr; 
bool  correlations,  convergence.  Overrule,  BulkPhase2,  Singularities , AskQuestion; 
char  project [70]; 

Gnuplot  gl,g2; 

void  ResetValues () ; 

void  SetGridO; 

void  SetGrid2Walls ( ) ; 

void  SetQDNA (double) ; 

void  SetGrid2WallslDielectric ( ) ; 

void  SetGridExcluded ( ) ; 

void  Inf ormationFile (bool) ; 

void  SetPairPotential ( ) ; 

void  SetPairPotential2Walls ( ) ; 

void  SetPairPotential2DielectricWalls () ; 

void  SetRegularizedPairPotential2DielectricWalls () ; 

void  SetPairPotential2WallslDielectric () ; 

void  GnuplotDensity ( ) ; 

void  GnuplotCorrelationFunctions () ; 

void  SetGrid2WallSession (double) ; 

void  InitiateCorrelationFunctions (double* , double* , double* , double* , double* , double* , double* , int, int) ; 

void  InitiateCorrelationFunctions2Walls (double* , double* , double* , double* , double* , double* , double* , int, int) ; 

void  SetHankelTransf ormPairPotential () ; 

void  EvaluateReservoirMuEx  (int) ; 

void  InitialCorrelationFunctions () ; 
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void  SetCorrelationFunctions () ; 

void  FinalCorrelationFunctions () ; 

void  GetCorrelationFunctions () ; 

void  ResetQs () ; 

void  OZ_HNC ( ) ; 

void  OZ_HNC_ShortRange ( ) ; 

void  OZ_HNC_Alternative ( ) ; 

void  AHNC_Loop (int* , bool, double) ; 

void  AHNC_convolute_Loop (int* , bool, double) ; 

void  AMHNC_Loop (int* , bool, double) ; 

void  OZ_AHNC_AdaptiveFinder (double) ; 

void  CalculateDensity (int) ; 

void  CalculateMeanPotentialSlit ( ) ; 

void  CalculateMeanPotentiallboundary ( ) ; 

void  CalculateExpensivePotential () ; 

void  CalculatePotentialWithTraceSalt ( ) ; 

void  Potentiostat  ( ) ; 

void  CalculateEf ieldAndPotential () ; 

void  CalculateExpensivePotential2Walls () ; 

void  CalculateAnalyticalProf iles () ; 

void  CalculateFreeEnergy ( ) ; 

void  CalculateCorrelationLength ( ) ; 

void  SymmetrizeFunctions (int) ; 

void  RecordTemporaryProf iles () ; 

void  RecordProf iles (bool) ; 

void  RecordSnapShot ( ) ; 

void  RecordCorrelationFunctions () ; 

void  RecordBulkCorrelationFunctions (double* , double* , double* , double* , int, int) ; 

void  RecordTestfunctions () ; 

void  RecordConvolutionFunctions (double*) ; 

void  RecordTime (int* ) ; 

void  RecordFreeEnergy (bool) ; 


public : 

CoulombFluid ( ) ; 

void  TestFunction ( ) ; 

void  TestFunction2 ( ) ; 

void  TestFunction3 () ; 

void  TestReservoir () ; 

void  TestMatrixInversion ( ) ; 

void  TestConvolution ( ) ; 

void  TestGaussianConvolution ( ) ; 

void  test_dht_potentials () ; 

void  SetName (char* ) ; 

void  Iterate (); 

void  Iterate2Walls ( ) ; 

void  Iterate2DielectricWalls ( ) ; 

void  Iterate2WallslDielectric ( ) ; 

void  Iterate2WallSession ( ) ; 

void  Iterate2DielectricWallSession () ; 

void  ObtainDis j oiningPressure ( ) ; 


CoulombFluid :: CoulombFluid ( )  { 


gl . set_title ( "Density  Profiles" ) ; 

g2 . set  title ( "Anisotropic  Correlation  Function  h  {+-}"); 

qp  =  2.0 ;//1.4;  /*  cation  charge  (in  units  of  e)  */ 
qm  =  1.0 ;//1.4;  /*  anion  charge  (in  units  of  e)  */ 

csl  =  2.0*50.0e-3  /  qp; //2 . 5e-l ;//l .  66666667e-l ;  /*  concentration  cations 

csl  *=  NA;  +  concentration  in  #  per  nm*2  */ 
ap  =  0.357 ;  / / 57 ; //2125 ;  /*  cation  radius  in  nm  */ 
am  =  0 . 357 ; //57;//2125;  /*  anion  radius  in  nm  */ 

el  =  80.0;  //ew;//2 . 0 ;//ew;  /*  relative  permittivity  in  medium  1  */ 
e2  =  80 . 0;  / / evr ; / / 1 0 ; / / 31 . 8;  /*  relative  permittivity  in  medium  2  */ 
e3  =  80.0;  ew;  ew*ew  70 , 

1B1  =  e*e/ (4*pi*eO*el*kB*T)  *1.0e9;  /*  Bjerrum  length  in  medium  1  in  nm* / 
1B2  =  e*e/ (4*pi*eO*e2*kB*T)  *1.0e9;  /*  Bjerrum  length  in  medium  2  in  nm  */ 
kappal  =  sqrt (4*pi*lBl* (qp+qm) *qp*csl) ; 

2*ap*kappal  +  4.0  <  20.0*kappal  ?  H  =  20.0*kappal  :  H  =  2*ap*kappal  +  4.0; 

cs2  =  qp/qm*csl*exp ( -0 . 25* (qp*qp/ap+qm*qm/am) * ( 1B2-1B1 ) ) ; 
cs2  =  csl; //2.  7e-3*NA;  /*  Density  of  free  BTPPA-  TPFB+  */ 

kappa2  =  sqrt (8*pi*lB2*qp*cs2) ; 

phiD  =  0 . 25* (qp*qp/ap-qm*qm/am) * ( 1B1-1B2 ) ; 


Vtot  =  0.0;  //0.05;  //total  electrostatic  potential  difference  c 

sigma  =  2*pi*lBl  *pow (1 . 0- (el-e2) / (el+e2) * (el-e3) / (el+e3) , -1 . 0) ; 
sigma  =  Vtot  /  (6*pi*lBl)  *  e  /  (kB*T) ; 
sigma  =  5*Vtot  /  (6*pi*lBl)  *  e  /  (kB*T) ; 

depth  =  0.0;  /*  potential  well  at  the  surface  in  kT  (positive  va 


aReg  =  2*ap; 

ap  +  8.0 /kappal  <40.0  ?R1=40.0  :  Rl=ap+  8. 0 /kappal ; 
ap  +  8.0/kappa2  <40.0?R2=40.0  :  R2=ap+  8.0/kappa2; 


H  =  l*sqrt (e/le-21) *kappal; 

R1  =  R2  =  max (0 . 0, 4 . 5/kappal+2*ap) ; 
H  =  2 . 0*kappal; //+2 *ap*kappal ;//*ka 

Htot  =  3.0; 

sigmaDNA  =  0.0;  //DNA  coverage  dens 

tolerance  =  le-9; 
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alpha  =  0.001; 

Nerr  =  10; 

errMem  =  (double*)  calloc  (Nerr , sizeof (double) ) ; 
errLimitSq  =  le-4* (Nerr-2 ) ; 
alphaMin  =  0.05; 


period  =  ap*pi*pi*10; 

evaluations  =  0; 

Nr  =  50; 

N  z  =  50; 

Nb  =  1024/2; 

Nf  =  1*40;  nf  =  0; 

h . assign (0.0,Nr,2*Nz,2*Nz) ; 
c . assign (0.0,Nr,2*Nz,2*Nz) ; 

y .  assign (0.0,Nr,2*Nz,2*Nz) ; 
u . assign (0.0,Nr,2*Nz,2*Nz) ; 
uHT . assign (0.0,Nr,2*Nz,2*Nz) ; 
uReg. assign (0.0, Nr, 2*Nz,2*Nz)  ; 
uRegHT . assign (0.0,Nr,2*Nz,2*Nz) ; 
newh .assign (0.0, Nr, 2*Nz,2*Nz) ; 
hi nit . assign (0.0,Nr,2*Nz,2*Nz) ; 
hFin .assign (0.0, Nr, 2*Nz,2*Nz) ; 
newg. assign (0.0, Nr, 2*Nz,2*Nz)  ; 
cl nit . assign (0.0,Nr,2*Nz,2*Nz) ; 
cFin. assign (0.0, Nr, 2*Nz,2*Nz) ; 
newc .assign (0.0, Nr, 2*Nz,2*Nz) ; 

Qs . assign (0.0,Nr,2*Nz,2*Nz) ; 

QsHT. assign (0.0, Nr, 2*Nz,2*Nz) ; 
hFT . assign (0.0,Nr,2*Nz,2*Nz) ; 

delta . assign (0.0,2*Nz,2*Nz) ; 
htest .assign (0.0, Nr, 2*Nz) ; 
mu . assign (0.0,2*Nz,2*Nz) ; 
newMu . assign (0.0,2*Nz,2*Nz)  ; 

Zcorr . assign (0.0,2*Nz,2*Nz) ; 

for  (i=0; i<2*Nz; i++)  delta[i] [i]  =  1.0; 

n. assign (0.0,2*Nz) ; 
n01d.assign(0.0,2*Nz) ; 

z .  assign ( 0 . 0 , Nz ) ; 
dz. assign (0.0, Nz) ; 
r. assign (0.0, Nr) ; 
kFT .assign (0.0, Nr) ; 

dc  =  (double*)  calloc  (Nr , sizeof (double) ) ; 
tc  =  (double*)  calloc  (Nr , sizeof (double) ) ; 
dcHT  =  (double*)  calloc  (Nr , sizeof (double) ) ; 
tcHT  =  (double*)  calloc  (Nr , sizeof (double) ) ; 
cp  =  (double*)  calloc  (Nz , sizeof (double) ) ; 
cm  =  (double*)  calloc  (Nz , sizeof (double) ) ; 

QDNA  =  (double*)  calloc  (Nz , sizeof (double) ) ; 
phi  =  (double*)  calloc  (Nz , sizeof (double) ) ; 

Vextp  =  (double*)  calloc  (Nz , sizeof (double) ) ; 

Vextm  =  (double*)  calloc  (Nz , sizeof (double) ) ; 
cpMF  =  (double*)  calloc  (Nz , sizeof (double) ) ; 
cmMF  =  (double*)  calloc  (Nz , sizeof (double) ) ; 
phiMF  =  (double*)  calloc  (Nz , sizeof (double) ) ; 
cpAN  =  (double*)  calloc  (Nz , sizeof (double) ) ; 
cmAN  =  (double*)  calloc  (Nz , sizeof (double) ) ; 
cplnit  =  (double*)  calloc  (Nz , sizeof (double) ) ; 
cmlnit  =  (double*)  calloc  (Nz , sizeof (double) ) ; 
cpFin  =  (double*)  calloc  (Nz , sizeof (double) ) ; 
cmFin  =  (double*)  calloc  (Nz , sizeof (double) ) ; 
phiAN  =  (double*)  calloc  (Nz , sizeof (double) ) ; 
muexp  =  (double*)  calloc  (Nz , sizeof (double) ) ; 
muexm  =  (double*)  calloc  (Nz , sizeof (double) ) ; 

Hf  =  (double*)  calloc  (Nf, sizeof (double) ) ; 

Fexc  =  (double*)  calloc  (Nf, sizeof (double) ) ; 

Fid  =  (double*)  calloc  (Nf, sizeof (double) ) ; 

Fext  =  (double*)  calloc  (Nf, sizeof (double) ) ; 

FexcDH  =  (double*)  calloc  (Nf, sizeof (double) ) ; 

Pzz  =  (double*)  calloc  (Nf, sizeof (double) ) ; 

Z1Z1  =  (double*)  calloc  (Nf, sizeof (double) ) ; 

Z2Z2  =  (double*)  calloc  (Nf, sizeof (double) ) ; 

Z1Z2  =  (double*)  calloc  (Nf, sizeof (double) ) ; 

NP  =  (double*)  calloc  (Nf, sizeof (double) ) ; 

NM  =  (double*)  calloc  (Nf, sizeof (double) ) ; 

Theta  =  (double*)  calloc  (Nr , sizeof (double) ) ; 

ThetaGauss  =  (double*)  calloc  (Nr , sizeof (double) ) ; 

qpv  =  (double*)  calloc  (Nz , sizeof (double) ) ; 
qmv  =  (double*)  calloc  (Nz , sizeof (double) ) ; 
apv  =  (double*)  calloc  (Nz , sizeof (double) ) ; 
amv  =  (double*)  calloc  (Nz , sizeof (double) ) ; 

for  ( j=0; j<Nz; j++)  {  qpv[j]=qp;  qmv[j]=qm;  apv[j]=ap;  amv[j]=am;  } 


for  (i=0; i<Nz; i++)  {  cp[i]  =  csl;  cm[i]  =  qpv [ i ] /qmv [ i ] *csl ;  } 

strcpy (project,  "default"); 

Overrule  =  false; 

BulkPhase2  =  false; 

Singularities  =  false; 

AskQuestion  =  true;  //  check  for  not  overwriting  data.  Value  n 

BulkCutoff  =  1.0; 

Lw=0 . 5 ; 

N1=0  ; 
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GridCutof f =1 . 7  ; 


void  CoulombFluid : : ResetValues ( )  { 

ap  =  0.37; 
am  =  0.37; 

el=ew; 

csl  =  4.0e-l  -  1.0e-l*temp;  *  concentration  cations  in  M  in  medium  1*/  cout  <<  "\ncsl  =  "  <<  csl  <<  endl; 
csl  *=  NA;  cs2  =  csl; 

qp  =  1.0  +  0.0*temp;  '*  cation  charge  (in  units  of  e)  */  cout  <<  "qp  =  "  <<  qp  <<  endl; 

qm  =  1.0  -  0.0*temp;  '*  anion  charge  (in  units  of  e)  */  cout  <<  "qm  =  "  <<  qm  <<  "\n"  <<  endl; 

for  ( j=0 ; j  <Nz ; j  ++)  {  qpv[j]=qp;  qmv[j]=qm;  apv[j]=ap;  amv[j]=am;  } 

1B1  =  e*e/ (4*pi*eO*el*kB*T)  *1.0e9;  /*  Bjerrum  length  m  medium  1  in  nm*  / 

1B2  =  e*e/ (4*pi*eO*e2*kB*T)  *1.0e9;  *  Bier  rum  length  in  medium  2  in  nm  * 

kappal  =  sqrt (8*pi*lBl*qp*csl) ; 
kappa2  =  sqrt (8*pi*lB2*qp*cs2) ; 
kappal=kappa2 ; 

R1  =  R2  =  max (0 . 0, 3 . 5/kappal+2*ap) ;  6*max(ap,am)  +  6.0/kappal; 


Nr  =  50; 
N  z  =  50; 


void  CoulombFluid :: SetName (char  *name)  { 
strcpy (project,  name); 


void  CoulombFluid :: TestFunction ( )  { 

int  1,N  =  300; 

double  *n; 

time_t  start, end; 

n  =  (double*)  calloc  (N*N*N, sizeof (double) ) ; 
h . assign ( 1 . 0 , N, N, N) ; 

time  (Sstart);  cout  <<  "\n**  Running  project  **\n"  <<  endl; 
for  (1=0; 1<100; 1++) { 

for  ( 1=0 ; i<N; i++) {  for  ( j=0; j<N; j++) {  for  (k=0; k<N; k++) { 

h[i]  [j]  [k]  =  i *  j  *  k ; 

}  }  } 

} 

time  (Send); 

cout  <<  "\nProject  ran  for  "  <<  setprecision  (0)  <<  int(difftime  (end, start) /3600 . 0)  <<  "  hours,  "  <<  int (int (dif ftime  (end,  start) ) %3600/60 . 0)  <<  "  minutes,  and  "  <<  int(difftime  (end,  start) ) %60  <<  "  seconds"  << 
time  (Sstart);  cout  <<  "\n**  Running  project  **\n"  <<  endl; 
for  (1=0; 1<5; 1++) { 

for  (i=0; i<N; i++) {  for  ( j=0; j<N; j++) {  for  (k=0; k<N; k++) { 

h[i]  [j]  [k]  =  i *  j  *  k ; 

}  }  } 

} 

time  (Send); 

cout  <<  "\nProject  ran  for  "  <<  setprecision  (0)  <<  int(difftime  (end, start) /3600 . 0)  <<  "  hours,  "  <<  int (int (dif ftime  (end,  start) ) %3600/60 . 0)  <<  "  minutes,  and  "  <<  int(difftime  (end,  start) ) %60  <<  "  seconds"  << 
time  (Sstart);  cout  <<  "\n**  Running  project  **\n"  <<  endl; 


for  (1=0; 1<100; 1++) { 

for  (i=0; i<N; i++) {  for  ( j =0 ; j<N; j ++) {  for  (k=0; k<N; k++) { 

n [ i+ j *N+k*N*N]  =  i*j*k; 

}  }  } 

} 

time  (Send); 

cout  <<  "\nProject  ran  for  "  <<  setprecision  (0)  <<  int(difftime  (end, start) /3600 . 0)  <<  "  hours,  "  <<  int (int (dif ftime  (end,  start) ) %3600/60 . 0)  <<  "  minutes,  and  "  <<  int(difftime  (end,  start) ) %60  <<  "  seconds"  << 
cout  <<  "Conclusion:  use  the  Mat3D  type,  instead  of  a  double  vector.  It's  faster,  and  does  not  use  one  long  array  of  memory"  <<  endl; 


void  CoulombFluid :: TestFunction2 ( )  { 

int  N  =  5; 
time_t  start, end; 

h . assign ( 1 . 0 , N, N, N) ; 
c . assign ( 1 . 0 , N, N, N) ; 

time  (Sstart);  cout  <<  "\n**  Running  project  **\n"  <<  endl; 

for  (i=0; i<N; i++)  {  for  ( j=0; j<N; j++) {  for  (k=0; k<N; k++)  { 

h  [i]  [  j  ]  [k]  =  i  *  j  *  k ;  c[i]  [j]  [k]  =  -  i  *  j  *  k  ; 

}  }  } 

for  (i=0; i<N; i++) {  for  ( j=0; j<N; j++) {  for  (k=0; k<N; k++) { 

cout  <<  setw(3)  <<  h[i] [j] [k]-c[i] [j] [k] ; 

}  cout  <<  setw(5)  <<  }  cout  <<  endl;} 

time  (Send); 

cout  <<  "\nProject  ran  for  "  <<  setprecision  (0)  <<  int (dif ftime  (end, start) /3600 . 0)  <<  "  hours,  "  <<  int (int (dif ftime  (end, start) ) %3600/60 . 0)  <<  "  minutes,  and  "  <<  int(difftime  (end, start) ) %60  <<  "  seconds"  << 


endl 


endl 


endl 


endl 
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} 


/*void  CoulombFluid: : TestFunction3 ( )  { 

//  Hankel  transformation  test 
double  *htrans,  *ctrans; 
int  1 ,N  =  100 ; 
time_t  start, end; 

htrans  =  (double*)  calloc  (N,  sizeof  (double) ) ; 
ctrans  =  (double*)  calloc  (N,  sizeof (double) ) ; 

h  .  assign  (1 . 0 ,N,N,N)  ;  c .  assign  (1 . 0 ,N,N,N)  ; 
hFour.  assign  (1 . 0 ,N,N,N)  ;  cFour .  assign  (1 . 0 ,N,N,N)  ; 

time  (&start)  ;  cout  «  "\n**  Running  project  **\n"  «  endl ; 

for  (j=0 ;i<N;i++)  {  for  (k=0 ;i<N;i++)  { 

for  (i=0 ; i<N ; i++)  { 

htrans  [i]  =  h[i][j][k];  ctrans[i]  =  c[i]  [j]  [k] ; 

} 

BesselTransform (htrans) ;  BesselTransform (ctrans) ; 
for  ( i=0 ; i<N; i++) { 

hFour [i] [j ] [k]  =  htrans [i] ;  cFour [i] [j ] [k]  =  ctrans [i] ; 

} 

}} 

dataname  =  (char*)  calloc  (strlen  (projectname) +14 , sizeof (char) ) ; 

strcpy  (dataname , "Data/ ") ;  strcat (dataname, projectname) ;  strcat (dataname , "_phi . dat" ) ; 
cout  «  "\n\nfile  is  named  "  «  dataname  «  endl; 


datafile . open  (dataname) ; 

datafile  «  "#  Mean  potential  phi  for  a  system  with  characteristics:"  «  endl; 

datafile  «  "#"  <<  setw (40)  «  "Number  of  grid  points  N  =  "  «  N  <<  setw (40)  <<  "concentration  csl  =  "  <<  csl  «  "  M  "  <<  endl; 

datafile  «  "#"  <<  setw (40)  «  "radius  of  cations  ap  =  "  <<  ap  <<  "  nm"  «  setw (40)  «  "Bjerrum  length  of  1B1  =  "  «  1B1  <<  "  nm"  <<  endl; 

datafile  «  "#"  <<  setw (40)  «  "Debye  length  1/kappaDl  =  "  <<  1.0/kappal  «  "  nm"  «  setw (40)  «  endl; 

datafile  «  "\n#"  «  setw(20)  «  "r"  «  setw(20)  «  "h(r)"  <<  setw  (20)  «  "h(k)"  <<  endl; 

for  (i=l  ;  i<N ;  i++)  datafile  «  setw  (20)  «  r[i]  «  setw(20)  <<  h  [i]  [0]  [0]  <<  setw  (20)  «  hFour  [i]  [0]  [0]  <<  endl; 

datafile .  close  ()  ; 
time  (&end); 

cout  «  "\nProject  ran  for  "  «  setprecision  (0)  «  intfdifftime  (end, start) /3600 . 0)  «  "  hours,  "  <<  int (int (diff time  (end, start) )  %3600/60 . 0)  «  "  minutes,  and  "  «  intfdifftime  (end, start) ) %60  << 


} 


void  CoulombFluid :: SetGrid ( )  { 

i=-l  ; 

while  (i<Nz/2)  { 

i++; 

z[i]  =  H/kappal  *  (-1.0  +  i*2.0/Nz  +  1.0/Nz); 

} 

while  (i<Nz)  { 

i++; 

//  z[i]  =  H/kappa2  *  (-1.0  +  i*2 . O/Nz)  +  H/kappal/Nz; 

z[i]  =  H/kappal  *  (-1.0  +  i*2.0/Nz)  +  H/ kappa 1/Nz; 

} 

for  ( i=0 ; i<Nr ; i++)  r[i]  =  i*1.0/Nr  *R2; 
r [ 0 ]  =  0.01 /Nr  *R2; 

for  (i=0; i<Nz-l; i++)  dz[i]  =  z[i+l]-z[i]; 
dz[Nz-l]  =  dz[Nz-2]; 

i=0;  while  (z[i]<0)  i++;  interface  =  i; 
epsilon  =  ( z [interface]  +  z [interface-1 ]) ; 

cout  <<  "Interface  is  defined  at  z  =  "  <<  0.5*epsilon  <<  "  nm,  after  grid  point  "  <<  interface+1  <<  "  at  z  =  "  <<  z [interface]  <<  "  nm."  <<  endl; 

gsl  dht  *  t  =  gsl  dht  new (Nr,  0.0,  r[Nr-l]); 

for  (i=0; i<Nr; i++)  kFT[i]  =  gsl_dht_k_sample (t,  i); 


4/  for  (j=0;j<Nz;j++)  {  if(z[j]<0)  {qpv[j]=2.0;  qmv[j]=2.0;  apv  [j  ]  =0 . 2125  ;  amv  [j  ]  =0 . 2125  ;  }  else  {qpv  [j  ]  =1 . 0  ;  qmv[j]=1.0;  apv  [j  ]  =0 .  425  ;  amv  [j  ]  =0 .  425  ;  }  } 


} 

void  CoulombFluid :: SetGrid2Walls ( )  { 

i=-l  ; 

while  (i<Nz)  { 

i++; 

z [ i ]  =  H/kappal/2 . 0  *  (-1.0  +  i*2 . 0/ (Nz-1) ) ; 

} 

for  (i=0; i<Nr; i++)  r[i]  =  i*1.0/Nr  *R1; 
r  [  0 ]  =  0.01 /Nr  *R1; 

for  (i=0; i<Nz-l; i++)  dz[i]  =  z[i+l]-z[i]; 

dz[Nz-l]  =  dz[Nz-2];  //dz[0]  ; 

//  z[l]  =  z [2]  -  ap;  z[0]  =  z[l]  -  ap; 


seconds"  < 
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gsl  dht  *  t  =  gsl  dht  new (Nr,  0.0,  r[Nr-l]); 

for  (i=0; i<Nr; i++)  kFT[i]  =  gsl_dht_k_sample (t,  i); 

for  ( j=0; j<Nz; j++)  {  n[j]  =  cp[j]*dz[j];  }  for  ( j=Nz ; j<2*Nz; j ++)  {  n[j] 


cm [ j -Nz ] *dz [ j -Nz ]  ;  } 


void  CoulombFluid :: SetQDNA (double  LDNA)  { 

for (i=0; i<Nz; i++)  QDNA[i]  =  0; 
i=0  ; 

while  (i<Nz  and  fabs (z [i] -z [0] )  <  LDNA)  { 
QDNA [ i ]  =  sigmaDNA*  6.0; 
i++; 

} 

i=Nz-l ; 

while  (i>0  and  fabs (z [Nz-1] -z [i] )  <  LDNA)  { 
QDNA [ i ]  +=  sigmaDNA*  6.0; 

i--; 

} 


void  CoulombFluid :: SetGrid2WallslDielectric ( )  { 

i=-l; 

while  (i<Nz-l)  { 
i++; 

z[i]  =  (i+1) *H/kappal/ (Nz-1) +  0.2; 

} 

for  ( i=0 ; i<Nr ; i++)  r[i]  =  i*1.0/Nr  *R1; 

r [ 0 ]  =  0.01 /Nr  *R1; 

if  (2*ap  <  r [2 ] )  r[l]  =  2.001*ap; 

for  (i=0; i<Nz-l; i++)  dz[i]  =  z[i+l]-z[i]; 

dz[Nz-l]  =  dz[Nz-2];  // dz[0 ]  =  dz[Nz-l] 


gsl  dht  *  t  =  gsl  dht  new (Nr,  0.0,  r[Nr-l]); 


for  (i=0; i<Nr; i++)  kFT[i]  =  gsl  dht  k  sample (t,  i); 
epsilon  =  0; 


for  (i=0; i<Nr; i++) {  Theta [i]  =  2*pi*period*gsl_sf_bessel_Jl (period*kFT [i] ) /kFT [i] ;  } 

for  (i=0; i<Nr; i++) {  ThetaGauss [ i ]  =  max (exp (-kFT [i] *kFT [i] / (4*pi) /period)  /  period  ,  le-200);  } 


void  CoulombFluid :: SetGrid2WallSession (double  NzMem)  { 

double  zmean,  stepl,  step2; 

int  ib; 

stepl  =  HO/kappal  -  2 . 0*Lw* ( 1 . 0-exp (depth/2 . 0 ))  ; 
stepl  /=  1 . 0* (NzMem-1 )  *  0.9; 

step2  =  stepl*exp (-depth/2 . 0) ; 

N1  =  Lw/step2;  cout  <<  "N1  =  "  <<  N1  <<  "  stepl  =  "  <<  stepl  <<  "  and  step2  =  "  <<  step2  <<  "  HO/kappal  =  "  <<  HO/kappal  <<  endl; 

i=0;  z[0]  =  -H/kappal/2 . 0; 

while  ( z [ i ] < ( z [ 0 ] +Lw)  and  i<NzMem-l)  { 

i  +  +  ; 

z[i]  =  z [ 0 ]  +  i*step2;  //HO/kappal *exp (-depth/2 . 0) /2 . 0  *  (-1.0  +  i*2 . 0/ (NzMem-1 )) ; 

) 

ib=i;  N1  =  i; 

while  (z [i] <z [0] +H/kappal-Lw)  { 

i++; 

z[i]  =  z[ib]  +  ( i-ib) *stepl ; 

} 

ib=i ; 

while  (i-ib  <  Nl)  { 

i++; 

z[i]  =  z[ib]  +  (i-ib) *step2; 

} 

Nz=i+1;  cout  <<  "Nl  =  "  <<  Nl  <<  "  and  Nz  =  "  <<  Nz  <<  endl; 

if  (Nz>NzMem)  { 

zmean  =  (  z [Nz-1 ] +z [ 0 ] ) /2 . 0 ; 

for  (i=0; i<Nz; i++)  z[i]  -=  zmean; 


for  (i=0; i<Nr; i++)  r[i]  =  i*1.0/Nr  *R1; 
r  [  0 ]  =  0.01/Nr  *R1; 


for  (i=l; i<Nz/2; i++)  dz[i]  =  z[i+l]-z[i];  for  (i=Nz/2; i<Nz-l; i++)  dz[i]  =  z[i]-z[i-l]; 
dz[Nz-l]  =  dz [Nz-2] ;  dz[0]  =  dz[l]; 

gsl  dht  *  t  =  gsl  dht  new (Nr,  0.0,  r[Nr-l]); 

for  (i=0; i<Nr; i++)  kFT[i]  =  gsl  dht  k  sample (t,  i); 

} 

void  CoulombFluid :: SetGridExcluded ( )  { 
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i=-l  ; 

while  (i<Nz/2)  { 

i++; 

z[i]  =  H/kappal  *  (-1.0  +  i*2.0/Nz)  -  aReg/2; 

} 

while  (i<Nz)  { 
i++; 

z[i]  =  H/kappal  *  (-1.0  +  i*2.0/Nz)  +  aReg/2; 


for  ( j=0; j<Nz; j++)  {  if(j<Nz/2)  {qpv[j]=2.0;  qmv[j]=2.0;  apv [ j ] =0 . 2125;  amv [ j ] =0 . 2125; }  else  {qpv[j]=1.0;  qmv[j]=1.0;  apv [ j ] =0 . 425;  amv [ j ] =0 . 425; }  } 


1=0  ; 

while  (i<Nz/2)  { 

z[i]  =  4*apv[i]  *  (-Nz/2  +  i  +  0.5); 

1++; 

} 

while  (i<Nz)  { 

z[i]  =  4* apv [ i-Nz/2 ]  *  (-Nz/2  +  i  +  0.5); 
i++; 


for  (i=0; i<Nr; i++)  r[i]  =  i*1.0/Nr  *R1; 
r  [  0 ]  =  0.01/Nr  *R1; 

for  (i=l;i<Nz-l; i++)  dz[i]  =  0 . 5*  (z  [i  +  1] -z  [  i  —  1 ] ) ; 

dz [0]  =  dz  [1]  ; 
dz[Nz-l]  =  dz[Nz-2]; 

i=0;  while  (z[i]<0)  i++;  interface  =  i; 
epsilon  =  ( z [interface]  +  z [interface-1]); 


void  CoulombFluid :: Inf ormationFile (bool  ask)  { 

ifstream  check; 

ofstream  datafile; 

char  filename [70] , answer; 

strcpy (filename, "Data/" ) ;  strcat (filename,  project);  strcat ( filename, "_Info . dat" ) ; 
if  (ask)  { 

check. open  (filename,  ios::binary  ); 
check. seekg  (0,  ios::end); 
if  (check . tellg () >1 )  { 

cout  <<  "File  \""  <<  filename  <<  "\"  already  contains  information.  Overwrite  (o)  or  exit  (e) ?"  <<  endl; 
answer  =  cin.get  (); 
if  (answer  !=  'o')  exit(l); 

} 

check . close ( ) ; 


datafile . open (filename, ios : : trunc) ; 

<<  project  <<  "*.dat  files  were  obtained  by  using  the  following  parameters : \n' 


datafile 

datafile 

datafile 


« 

« 

« 


"The  ' 
setw ( 30 ) 
setw ( 30 ) 


<<  endl; 


<<  "Bjerrum  length  phase  1"  <<  setw (10)  <<  "1B1"  <<  setw (10)  <<  1B1  <<  setw (4)  <<  "nm"  <<  setw (40)  <<  "Bjerrum  length  phase  2"  <<  setw (10)  << 
<<  "concentration  cations  phase  1"  <<  setw (10)  <<  "csl"  <<  setw (10)  <<  csl/NA  <<  setw (4)  <<  "M"  <<  setw (40)  <<  "concentration  cations  phase  2' 


'1B2"  <<  setw(14)  << 
<<  setw(10)  <<  "cs2' 


1B2  <<  setw (4)  <<  "nm"  <<  endl; 

<<  setw(14)  <<  cs2/NA  <<  setw(4)  << 


'M"  <<  endl; 


datafile 

« 

setw ( 30 ) 

« 

"radius 

cations 

phase 

1" 

« 

setw (10) 

« 

"apl" 

« 

setw (10) 

« 

apv [ 0 ] 

« 

setw ( 4 ) 

« 

datafile 

« 

setw ( 30 ) 

« 

"charge 

cations 

phase 

1" 

« 

setw (10) 

« 

"qpl" 

« 

setw (10) 

« 

qpv [ 0 ] 

« 

setw ( 4 ) 

« 

datafile 

« 

setw ( 30 ) 

« 

"radius 

cations 

phase 

2" 

« 

setw (10) 

« 

"ap2  " 

« 

setw (10) 

« 

apv [Nz 

-1] 

« 

setw ( 4 ) 

datafile 

« 

setw ( 30 ) 

« 

"charge 

cations 

phase 

2" 

« 

setw (10) 

« 

"qp2  " 

« 

setw (10) 

« 

qpv [Nz 

-1] 

« 

setw ( 4 ) 

datafile 

datafile 

datafile 

datafile 

cout  <<  ' 
cout  << 
cout  << 
cout  << 
cout  << 
cout  << 
cout  << 
cout  << 
cout  << 
cout  << 
cout  << 


« 

« 

« 

« 


setw ( 30 ) 
setw ( 30 ) 
setw ( 30 ) 
setw ( 30 ) 


« 

« 

« 

« 


"nm"  <<  setw (40)  <<  "radius  anions  phase  1"  <<  setw (10)  << 

"e"  <<  setw (40)  <<  "charge  anions  phase  1"  <<  setw (10)  << 

<<  "nm"  <<  setw (40)  <<  "radius  anions  phase  2"  <<  setw (10) 

« 

'Debye  length  phase  1"  <<  setw (10)  <<  "1/kappal"  <<  setw (10)  <<  1.0/kappal  <<  setw (4) 

'relative  permittivity  phase  1"  <<  setw (10)  <<  "el"  <<  setw (10)  <<  el  <<  setw (4)  <<  "  "  <<  setw (40)  <<  "relative  permittivity  phase  2"  <<  setw (10) 
'width  of  one  phase"  <<  setw (10)  <<  "H"  <<  setw (10)  <<  H  <<  "  Debye  lengths"  <<  setw (50)  <<  "Mixing  parameter  alpha  =  "  <<  alpha  <<  endl; 

'maximal  radial  component"  <<  setw (10)  <<  "Rl"  <<  setw (10)  <<  R1  <<  "  nm"  <<  endl; 


"ami"  <<  setw(14)  <<  amv[0]  <<  setw(4)  <<  "nm"  <<  endl; 
qml"  <<  setw(14)  <<  qmv[0]  <<  setw(4)  <<  "e"  <<  endl; 

<<  "am2"  <<  setw(14)  <<  amv[Nz-l]  <<  setw(4)  <<  "nm"  <<  endl; 
e"  <<  setw(40)  <<  "charge  anions  phase  2"  <<  setw(10)  <<  "qm2"  <<  setw(14)  <<  qmv[Nz-l]  <<  setw(4)  <<  "e"  <<  endl; 

<<  "nm"  <<  setw (40)  <<  "Debye  length  phase  2"  <<  setw (10)  <<  "l/kappa2"  <<  setw (14)  <<  1.0/kappa2  <<  setw (4)  <<  "nm" 

<<  "e2"  <<  setw (14)  <<  e2  <<  setw (4)  <<  "  \n"  <<  endl; 


<<  endl 


" \n\nThe 
setw ( 30 ) 
setw ( 30 ) 
setw ( 30 ) 
setw ( 30 ) 
setw ( 30 ) 
setw ( 30 ) 
setw ( 30 ) 
setw ( 30 ) 
setw ( 30 ) 
setw ( 30 ) 


program  with  name  \""  <<  project  <<  "\"  is  running  using  the  following  parameters : \n"  <<  endl; 

<<  "Bjerrum  length  phase  1"  <<  setw (10)  <<  "1B1"  <<  setw (10)  <<  1B1  <<  setw (4)  <<  "nm"  <<  setw (40)  <<  "Bjerrum  length  phase  2"  <<  setw (10)  <<  "1B2"  <<  setw (14)  <<  1B2  <<  setw (4)  <<  "nm"  <<  endl; 

concentration  cations  phase  1"  <<  setw (10)  <<  "csl"  <<  setw (10)  <<  csl/NA  <<  setw (4)  <<  "M"  <<  setw (40)  <<  "concentration  cations  phase  2"  <<  setw (10)  <<  "cs2"  <<  setw (14)  <<  cs2/NA  <<  setw (4)  <<  "M"  <<  endl; 

radius  cations  phase  1"  <<  setw(10)  <<  "apl"  <<  setw(10)  <<  apv[0]  <<  setw(4)  <<  "nm"  <<  setw(40)  <<  "radius  anions  phase  1"  <<  setw(10)  <<  "ami"  <<  setw(14)  <<  amv[0]  <<  setw(4)  <<  "nm"  <<  endl; 

<<  setw(10)  <<  qpv[0]  <<  setw(4)  <<  "e"  <<  setw(40)  <<  "charge  anions  phase  1"  <<  setw(10)  <<  "qml"  <<  setw(14)  <<  qmv[0]  <<  setw(4)  <<  "e"  <<  endl; 

<<  setw(10)  <<  apv[Nz-l]  <<  setw(4)  <<  "nm"  <<  setw(40)  <<  "radius  anions  phase  2"  <<  setw(10)  <<  "am2"  <<  setw(14)  <<  amv[Nz-l]  <<  setw(4)  <<  "nm"  <<  endl; 

<<  setw(10)  <<  qpv[Nz-l]  <<  setw(4)  <<  "e"  <<  setw(40)  <<  "charge  anions  phase  2"  <<  setw(10)  <<  "qm2"  <<  setw(14)  <<  qmv[Nz-l]  <<  setw(4)  <<  "e"  <<  endl; 

<<  setw (10)  <<  1.0/kappal  <<  setw (4)  <<  "nm"  <<  setw (40)  <<  "Debye  length  phase  2"  <<  setw (10)  <<  "l/kappa2"  <<  setw (14)  <<  1.0/kappa2  <<  setw (4)  <<  "nm"  <<  endl; 
el"  <<  setw (10)  <<  el  <<  setw (4)  <<  "  "  <<  setw (40)  <<  "relative  permittivity  phase  2"  <<  setw (10)  <<  "e2"  <<  setw (14)  <<  e2  <<  setw (4)  << 


« 

« 

« 

« 

« 

« 

« 

« 

« 


'charge  cations  phase  1"  <<  setw (10)  <<  "qpl' 

'radius  cations  phase  2"  <<  setw (10)  <<  "ap2' 

'charge  cations  phase  2"  <<  setw (10)  <<  "qp2' 

'Debye  length  phase  1"  <<  setw (10)  <<  "1/kappal' 
'relative  permittivity  phase  1"  <<  setw (10)  <<  ' 


\n"  <<  endl; 


'width  of  one  phase"  <<  setw (10)  <<  "H"  <<  setw (10)  <<  H  <<  "  Debye  lengths"  <<  setw (50)  <<  "Mixing  parameter  alpha  = 
'maximal  radial  component"  <<  setw (10)  <<  "Rl"  <<  setw (10)  <<  Rl  <<  "  nm"  <<  endl; 


<<  alpha  <<  endl; 


datafile . close  ( ) ; 


} 

void  CoulombFluid :: SetPairPotential ( )  { 


double  image,  screen; 
double  aO , bO , HI , H2 , DV; 


screen  =  2*1B1*1B2/ (1B2+1B1) ; 
image  =  (1B2-1B1) / (1B2+1B1) ; 


HI  =  epsilon-z [0] ;  H2  =  z [Nz-1 ] -epsilon;  DV  =  0.0;  a0=DV/ (H1+1B2/1B1*H2) ;  b0=DV/ (1B1/1B2*H1+H2) ; 


for  ( j  =0 ; j <Nz ; j  ++)  { 

if  (z[j]  <  0.0)  { 

Vextp[j]  =  qpv [j ] *qpv [j ] *lBl/fabs (2*z [j ] -epsilon) *image; 
Vextm[j]  =  qmv [j ] *qmv [j ] *lBl/fabs (2*z [j ] -epsilon) *image; 

} 

if  (z  [  j ]  >=0.0)  { 

Vextp[j]  =  -qpv [j ] *qpv [j ] *lB2/fabs (2*z [j ] -epsilon) *image; 
Vextm[j]  =  -qmv [j ] *qmv [j ] *lB2/fabs (2*z [j ] -epsilon) *image; 

} 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


if  ( f abs ( z [ j ] -0 . 5*epsilon)  <  apv[j])  { 

Vextp[j]  =  0 . 5*lB2*qpv [ j ] *qpv [ j ] / apv [ j ] / (2*apv [ j ]  -  epsilon) *image* ( z [ j ] +apv [ j ] )  -  0 . 5*lBl*qpv [ j ] *qpv [ j ] / apv [ j ] / (2*apv [ j ]  -  epsilon) 
} 

if  ( f abs ( z [ j ] -0 . 5*epsilon)  <  amv[j])  { 

Vextm[j]  =  0 . 5*lB2*qmv [ j ] *qmv [ j ] / amv [ j ] / (2*amv [ j ]  -  epsilon) *image* ( z [ j ] +amv [ j ] )  -  0 . 5*lBl*qmv [ j ] *qmv [ j ] / amv [ j ] / (2*amv [ j ]  -  epsilon) 
} 


for  ( j=0; j<Nz; j++)  { 

phi [ j ]  =  -  Vextp [ j ]  /  qpv [ j ] ; 

} 


for  (i=0; i<Nr; i++)  {  for  ( j=0; j<Nz; j++)  {  for  (k=0; k<Nz; k++)  { 

if  (j==k  and  r[i]==0)  {  u[i] [j] [k]  =  Large;  continue;  } 

if  (z[j]<0.0  and  z[k]<0.0)  {u[i][j][k]  =  qpv [ j ] *qpv [ j ] *lBl/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) )  +  qpv [ j ] *qpv [ j ] *lBl/sqrt (r [i] *r [i]  + 

if  (z[j]>=0.0  and  z [ k] >=0 . 0 ) { u [ i ] [ j ] [ k]  =  qpv [ j ] *qpv [ j ] *lB2/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) )  +  qpv [ j ] *qpv [ j ] *lB2/sqrt (r [i] *r [i]  + 

if  (z[j]<0.0  and  z[k]>=0.0)  {u[i] [j] [k]  =  qpv [ j ] *qpv [k] *screen/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) ) ;  continue;} 

if  (z[j]>=0.0  and  z[k]<0.0)  {u[i][j][k]  =  qpv [ j ] *qpv [k] *screen/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) ) ; } 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz ; j ++) {  for  (k=0; k<Nz; k++) { 

if  (j==k  and  r[i]==0)  {  u[i] [j] [k]  =  -Large;  continue;  } 

if  (z[j]<0.0  and  z[k]<0.0)  { u [ i ] [ j +Nz ] [ k]  =  -qpv [ j ] *qmv [ j ] *lBl/sqrt (r [i] *r [i ]  +  pow (z [ j ] -z [k] , 2 . 0) )  -  qpv [ j ] *qmv [ j ] *lBl/sqrt (r [i] *r [i 

if  ( z [ j ] >=0 . 0  and  z [ k] >=0 . 0 ) { u [ i ] [ j +Nz ] [ k]  =  -qpv [ j ] *qmv [ j ] *lB2/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) )  -  qpv [ j ] *qmv [ j ] *lB2/sqrt (r [i] *r [i 

if  (z[j]<0.0  and  z[k]>=0.0)  { u [ i ] [ j +Nz ] [ k]  =  -qpv [ j ] *qmv [k] *screen/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) ) ;  continue;} 

if  (z[j]>=0.0  and  z[k]<0.0)  { u [ i ]  [ j +Nz ]  [ k]  =  -qpv [ j ] *qmv [k] *screen/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) ) ; } 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0 . 0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

u[i] [j] [k+Nz]  =  u [ i ] [j+Nz] [k] ; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

if  (j==k  and  r[i]==0)  {  u[i]  [j+Nz]  [k+Nz]  =  Large;  continue;  } 

if  (z[j]<0.0  and  z[k]<0.0)  { u [ i ] [ j +Nz ] [ k+Nz ]  =  qmv [ j ] *qmv [ j ] *lBl/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) )  +  qmv [ j ] *qmv [ j ] *lBl/sqrt (r [i] *r 

if  (z[j]>=0.0  and  z [ k] >=0 . 0 ) { u [ i ] [ j +Nz ] [ k+Nz ]  =  qmv [ j ] *qmv [ j ] *lB2/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) )  +  qmv [ j ] *qmv [ j ] *lB2/sqrt (r [i] *r 

if  (z[j]<0.0  and  z[k]>=0.0)  { u [ i ] [ j +Nz ] [ k+Nz ]  =  qmv [ j ] *qmv [k] *screen/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) ) ;  continue;} 

if  (z[j]>=0.0  and  z[k]<0.0)  { u [ i ] [ j +Nz ] [ k+Nz ]  =  qmv [ j ] *qmv [k] *screen/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) ) ; } 

}  }  } 


for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz ; j ++) {  for  (k=0; k<Nz; k++) { 

uReg [i]  [j]  [k]  =  u[i]  [j]  [k]  ; 

if  (fabs (z [ j ] -z [k] )  <  aReg  and  ( f abs ( z [ j ] -0 . 5*epsilon)  +  f abs ( z [ k] -0 . 5*epsilon) )  >=  aReg)  { 

if  (z[j]<0.0  and  z[k]<0.0)  { uReg [ i ] [ j ] [ k]  =  qpv [ j ] *qpv [ j ] *lBl/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) )  +  qpv [ j ] *qpv [ j ] *lBl/sqrt (r [i] *r [i] 

if  (z[j]>=0.0  and  z[k]>=0.0)  { uReg [ i ] [ j ] [ k]  =  qpv [ j ] *qpv [ j ] *lB2/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) )  +  qpv [ j ] *qpv [ j ] *lB2/sqrt (r [i] *r [i] 


if  (fabs (z [ j ] -z [k] )  <  aReg  and 
if  (z[j]<0.0  and  z[k]<0.0) 
if  (z[j]>=0.0  and  z[k]>=0.0) 
if  (z[j]<0.0  and  z[k]>=0.0) 
if  (z[j]>=0.0  and  z[k]<0.0) 


( f abs ( z [ j ] -0 . 5*epsilon)  +  f abs ( z [ k] -0 . 5*epsilon) )  <  aReg)  { 

{ uReg [ i ] [ j ] [ k]  =  qpv [ j ] *qpv [ j ] *lBl/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) )  +  qpv [ j ] *qpv [ j ] *lBl/sqrt (r [i] *r [i] 
{ uReg [ i ] [ j ] [ k]  =  qpv [ j ] *qpv [ j ] *lB2/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) )  +  qpv [ j ] *qpv [ j ] *lB2/sqrt (r [i] *r [i] 
{ uReg [ i ] [ j ] [ k]  =  qpv [ j ] *qpv [k] *screen/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) ) ; } 

{ uReg [ i ] [ j ] [ k]  =  qpv [ j ] *qpv [k] *screen/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) ) ; } 


} 

}  }  } 


for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

uReg [ i ] [j+Nz] [k]  =  u[i] [j+Nz] [k] ; 

if  (fabs (z [ j ] -z [k] )  <  aReg  and  ( f abs ( z [ j ] -0 . 5*epsilon)  +  f abs ( z [ k] -0 . 5*epsilon) )  >=  aReg)  { 

if  (z[j]<0.0  and  z[k]<0.0)  { uReg [ i ] [ j +Nz ] [ k]  =  -qpv[ j ] *qmv[ j ] *lBl/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) )  -  qpv [ j ] *qmv [ j ] *lBl/sqrt (r [i] * 

if  (z[j]>=0.0  and  z[k]>=0.0)  { uReg [ i ]  [ j +Nz ]  [ k]  =  -qpv [ j ] *qmv [ j ] *lB2/sqrt (r [i] *r [i]  +  pow (aReg,  2 . 0) )  -  qpv [ j ] *qmv [ j ] *lB2/sqrt (r [i] * 


if  (fabs (z [ j ] -z [k] )  <  aReg  and 
if  (z[j]<0.0  and  z[k]<0.0) 
if  (z[j]>=0.0  and  z[k]>=0.0) 
if  (z[j]<0.0  and  z[k]>=0.0) 
if  (z[j]>=0.0  and  z[k]<0.0) 


( f abs ( z [ j ] -0 . 5*epsilon)  +  f abs ( z [ k] -0 . 5*epsilon) )  <  aReg)  { 

{ uReg [ i ] [ j +Nz ] [ k]  =  -qpv [ j ] *qmv [ j ] *lBl/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) )  -  qpv [ j ] *qmv [ j ] *lBl/sqrt (r [i] * 
{ uReg [ i ] [ j +Nz ] [ k]  =  -qpv [ j ] *qmv [ j ] *lB2/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) )  -  qpv [ j ] *qmv [ j ] *lB2/sqrt (r [i] * 
{ uReg [ i ] [ j +Nz ] [ k]  =  -qpv [ j ] *qmv [k] *screen/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) ) ; } 

{ uReg [ i ]  [ j +Nz ]  [ k]  =  -qpv [ j ] *qmv [k] *screen/sqrt (r [i] *r [i]  +  pow (aReg,  2 . 0)  ) ; } 


} 


uReg[i] [j] [k+Nz]  =  uReg[i] [j+Nz] [k]  ; 

}  }  } 


for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz ; j ++) {  for  (k=0; k<Nz; k++) { 

uReg[i] [j+Nz] [k+Nz]  =  u[i] [j+Nz] [k+Nz]; 

if  (fabs (z [ j ] -z [k] )  <  aReg  and  ( f abs ( z [ j ] -0 . 5*epsilon)  +  f abs ( z [ k] -0 . 5*epsilon) )  >=  aReg)  { 

if  (z[j]<0.0  and  z[k]<0.0)  { uReg [ i ][ j +Nz ][ k+Nz ]  =  qmv [ j ] *qmv [ j ] *lBl/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) )  +  qmv [ j ] *qmv [ j ] *lBl/sqrt (r [i] 

if  (z[j]>=0.0  and  z[k]>=0.0)  { uReg [ i ][ j +Nz ][ k+Nz ]  =  qmv [ j ] *qmv [ j ] *lB2/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) )  +  qmv [ j ] *qmv [ j ] *lB2/sqrt (r [i] 


if  (fabs (z [ j ] -z [k] )  <  aReg  and 
if  (z[j]<0.0  and  z[k]<0.0) 
if  (z[j]>=0.0  and  z[k]>=0.0) 
if  (z[j]<0.0  and  z[k]>=0.0) 
if  (z[j]>=0.0  and  z[k]<0.0) 

} 

}  }  } 


(fabs (z [j ] -0.5* epsilon) 
[uReg[i] [j+Nz] [k+Nz]  = 
[uReg[i] [j+Nz] [k+Nz]  = 
[uReg[i] [j+Nz] [k+Nz]  = 
[uReg[i] [j+Nz] [k+Nz]  = 


+  f abs ( z [ k] -0 . 5*epsilon) )  <  aReg)  { 

qmv [ j ] *qmv [ j ] *lBl/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) )  +  qmv [ j ] *qmv [ j ] *lBl/sqrt (r [i] 

qmv [ j ] *qmv [ j ] *lB2/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) )  +  qmv [ j ] *qmv [ j ] *lB2/sqrt (r [i] 
qmv [ j ] *qmv [k] *screen/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) ) ; } 
qmv [ j ] *qmv [k] *screen/sqrt (r [i] *r  [i]  +  pow (aReg, 2 . 0) ) ; } 


} 

void  CoulombFluid: : SetPairPotential2WallslDielectric ( )  { 


double  image,  screen; 
double  aO , bO , HI , H2 , DV; 

screen  =  2*1B1*1B2/ (1B2+1B1) ; 
image  =  (1B2-1B1) / (1B2+1B1) ; 

HI  =  epsilon-z [0] ;  H2  =  z [Nz-1 ] -epsilon;  DV  =  0.0;  a0=DV/ (H1+1B2/1B1*H2) ;  b0=DV/ (1B1/1B2*H1+H2) ; 


for  ( j=0; j<Nz; j++)  { 

if  ( z  [  j ]  <  0.0)  { 


* image  * ( apv [ j ] - z [ j ] ) ; 


* image  * ( amv [ j ] - z [ j ] ) ; 


pow (z [ j ] +z [k] -epsilon, 2.0)) *image;  continue; } 
pow (z [ j ] +z [k] -epsilon, 2.0)) *image;  continue; } 


]  +  pow (z [j ] +z [k] -epsilon, 2 . 0) ) *image;  continue;} 
]  +  pow (z [j ] +z [k] -epsilon, 2 . 0) ) *image;  continue;} 


[i]  +  pow (z [j ] +z [k] -epsilon, 2 . 0) ) *image;  continue;} 
[i]  +  pow (z [j ] +z [k] -epsilon, 2 . 0) ) *image;  continue;} 


+  pow (z [ j ] +z [k] - epsilon, 2.0) ) * image; } 
+  pow (z [ j ] +z [k] -epsilon, 2.0)) *image; } 


+  pow (aReg, 2 . 0) ) * image; } 
+  pow (aReg, 2 . 0) ) * image; } 


[i]  +  pow (z [j ] +z [k] -epsilon, 2 . 0) ) *image; } 
[i]  +  pow (z [j ] +z [k] -epsilon, 2 . 0) ) *image; } 


[i]  +  pow (aReg, 2 . 0) ) * image; } 
[i]  +  pow (aReg, 2 . 0) ) * image; } 


*r[i]  +  pow (z [j ] +z [k] -epsilon, 2 . 0) ) *image; } 
*r[i]  +  pow (z [j ] +z [k] -epsilon, 2 . 0) ) *image; } 


*r[i]  +  pow (aReg, 2 . 0) ) * image; } 
*r[i]  +  pow (aReg, 2 . 0) ) * image; } 
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Vextp[j]  =  qpv [j ] *qpv [j ] *lBl/fabs (2*z [j ] -epsilon) *image; 
Vextm[j]  =  qmv [j ] *qmv [j ] *lBl/fabs (2*z [j ] -epsilon) *image; 

} 

if  (z  [  j ]  >=0.0)  { 

Vextp[j]  =  -qpv [j ] *qpv [j ] *lB2/fabs (2*z [j ] -epsilon) *image; 
Vextm[j]  =  -qmv [j ] *qmv [j ] *lB2/fabs (2*z [j ] -epsilon) *image 

} 

if  ( z [ j ]  <  apv [ j ] )  Vextp [ j ]  +=  3 . 0*pow ( (apv [ j ] -z [ j ] ) /apv [ j ] , 2 . 0) ; 
if  (z  [ j ]  <  amv[j])  Vextm[j]  +=  3 . 0*pow ( (amv [ j ] -z [ j ] ) /amv [ j ] , 2 . 0) ; 


} 


for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

if  (j==k  and  r[i]==0)  {  u[i] [j] [k]  =  Large;  continue;  } 

if  (z[j]<0.0  and  z[k]<0.0)  {u[i] [j] [k]  =  qpv [ j ] *qpv [ j ] *lBl/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) )  +  qpv [ j ] *qpv [ j ] *lBl/sqrt (r [i] *r [i]  + 

if  (z[j]>=0.0  and  z [ k] >=0 . 0 ) { u [ i ] [ j ] [ k]  =  qpv [ j ] *qpv [ j ] *lB2/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) )  +  qpv [ j ] *qpv [ j ] *lB2/sqrt (r [i] *r [i]  + 

if  (z[j]<0.0  and  z[k]>=0.0)  {u[i] [j] [k]  =  qpv [ j ] *qpv [k] *screen/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) ) ;  continue;} 

if  (z[j]>=0.0  and  z[k]<0.0)  {u[i] [j] [k]  =  qpv [ j ] *qpv [k] *screen/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) ) ; } 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz ; j ++) {  for  (k=0; k<Nz; k++) { 

if  (j==k  and  r[i]==0)  {  u[i] [j] [k]  =  -Large;  continue;  } 

if  (z[j]<0.0  and  z[k]<0.0)  { u [ i ] [ j +Nz ] [ k]  =  -qpv[ j ] *qmv[ j ] *lBl/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) )  -  qpv [ j ] *qmv [ j ] *lBl/sqrt (r [i] *r [i 

if  (z[j]>=0.0  and  z [ k] >=0 . 0 ) { u [ i ] [ j +Nz ] [ k]  =  -qpv [ j ] *qmv [ j ] *lB2/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) )  -  qpv [ j ] *qmv [ j ] *lB2/sqrt (r [i] *r [i 

if  (z[j]<0.0  and  z[k]>=0.0)  { u [ i ] [ j +Nz ] [ k]  =  -qpv [ j ] *qmv [k] *screen/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) ) ;  continue;} 

if  (z[j]>=0.0  and  z[k]<0.0)  { u [ i ]  [ j +Nz ]  [ k]  =  -qpv [ j ] *qmv [k] *screen/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) ) ; } 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0 . 0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

u[i] [j] [k+Nz]  =  u [ i ] [j+Nz] [k] ; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

if  (j==k  and  r[i]==0)  {  u[i]  [j+Nz]  [k+Nz]  =  Large;  continue;  } 

if  (z[j]<0.0  and  z[k]<0.0)  { u [ i ] [ j +Nz ] [ k+Nz ]  =  qmv [ j ] *qmv [ j ] *lBl/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) )  +  qmv [ j ] *qmv [ j ] *lBl/sqrt (r [i] *r 

if  (z[j]>=0.0  and  z [ k] >=0 . 0 ) { u [ i ] [ j +Nz ] [ k+Nz ]  =  qmv [ j ] *qmv [ j ] *lB2/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) )  +  qmv [ j ] *qmv [ j ] *lB2/sqrt (r [i] *r 

if  (z[j]<0.0  and  z[k]>=0.0)  { u [ i ] [ j +Nz ] [ k+Nz ]  =  qmv [ j ] *qmv [k] *screen/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) ) ;  continue;} 

if  (z[j]>=0.0  and  z[k]<0.0)  { u [ i ] [ j +Nz ] [ k+Nz ]  =  qmv [ j ] *qmv [k] *screen/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) ) ; } 

}  }  } 


for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

uReg [i] [j] [k]  =  u[i] [j] [k] ; 

if  (fabs (z [ j ] -z [k] )  <  aReg  and  ( f abs ( z [ j ] -0 . 5*epsilon)  +  f abs ( z [ k] -0 . 5*epsilon) )  >=  aReg)  { 

if  (z[j]<0.0  and  z[k]<0.0)  { uReg [ i ] [ j ] [ k]  =  qpv [ j ] *qpv [ j ] *lBl/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) )  +  qpv [ j ] *qpv [ j ] *lBl/sqrt (r [i] *r [i] 

if  (z[j]>=0.0  and  z[k]>=0.0)  { uReg [ i ] [ j ] [ k]  =  qpv [ j ] *qpv [ j ] *lB2/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) )  +  qpv [ j ] *qpv [ j ] *lB2/sqrt (r [i] *r [i] 


if  (fabs (z [ j ] -z [k] )  <  aReg  and 
if  (z[j]<0.0  and  z[k]<0.0) 
if  (z[j]>=0.0  and  z[k]>=0.0) 
if  (z[j]<0.0  and  z[k]>=0.0) 
if  (z[j]>=0.0  and  z[k]<0.0) 


( f abs ( z [ j ] -0 . 5*epsilon)  +  f abs ( z [ k] -0 . 5*epsilon) )  <  aReg)  { 

{ uReg [ i ] [ j ] [ k]  =  qpv [ j ] *qpv [ j ] *lBl/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) )  +  qpv [ j ] *qpv [ j ] *lBl/sqrt (r [i] *r [i] 
{ uReg [ i ] [ j ] [ k]  =  qpv [ j ] *qpv [ j ] *lB2/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) )  +  qpv [ j ] *qpv [ j ] *lB2/sqrt (r [i] *r [i] 
{ uReg [ i ] [ j ] [ k]  =  qpv [ j ] *qpv [k] *screen/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) ) ; } 

{ uReg [ i ]  [ j ]  [ k]  =  qpv [ j ] *qpv [k] *screen/sqrt (r [i] *r [i]  +  pow (aReg,  2 . 0) ) ; } 


} 

}  }  } 


for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

uReg [ i ] [j+Nz] [k]  =  u[i] [j+Nz] [k] ; 

if  (fabs (z [ j ] -z [k] )  <  aReg  and  ( f abs ( z [ j ] -0 . 5*epsilon)  +  f abs ( z [ k] -0 . 5*epsilon) )  >=  aReg)  { 

if  (z[j]<0.0  and  z[k]<0.0)  { uReg [ i ] [ j +Nz ] [ k]  =  -qpv [ j ] *qmv [ j ] *lBl/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) )  -  qpv [ j ] *qmv [ j ] *lBl/sqrt (r [i] * 

if  (z[j]>=0.0  and  z[k]>=0.0)  { uReg [ i ]  [ j +Nz ]  [ k]  =  -qpv [ j ] *qmv [ j ] *lB2/sqrt (r [i] *r [i]  +  pow (aReg,  2 . 0) )  -  qpv [ j ] *qmv [ j ] *lB2/sqrt (r [i] * 


if  (fabs (z [ j ] -z [k] )  <  aReg  and 
if  (z[j]<0.0  and  z[k]<0.0) 
if  (z[j]>=0.0  and  z[k]>=0.0) 
if  (z[j]<0.0  and  z[k]>=0.0) 
if  (z[j]>=0.0  and  z[k]<0.0) 


( f abs ( z [ j ] -0 . 5*epsilon)  +  f abs ( z [ k] -0 . 5*epsilon) )  <  aReg)  { 

{ uReg [ i ] [ j +Nz ] [ k]  =  -qpv [ j ] *qmv [ j ] *lBl/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) )  -  qpv [ j ] *qmv [ j ] *lBl/sqrt (r [i] * 
{ uReg [ i ] [ j +Nz ] [ k]  =  -qpv [ j ] *qmv [ j ] *lB2/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) )  -  qpv [ j ] *qmv [ j ] *lB2/sqrt (r [i] * 
{ uReg [ i ] [ j +Nz ] [ k]  =  -qpv [ j ] *qmv [k] *screen/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) ) ; } 

{ uReg [ i ]  [ j +Nz ]  [ k]  =  -qpv [ j ] *qmv [k] *screen/sqrt (r [i] *r [i]  +  pow (aReg,  2 . 0)  ) ; } 


} 


uReg[i] [j] [k+Nz]  =  uReg[i] [j+Nz] [k]  ; 

}  }  } 


for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0 

uReg[i] [j+Nz] [k+Nz]  =  u[i] [j+Nz] [k+Nz]; 
if  (fabs (z [ j ] -z [k] )  <  aReg  and  ( f abs ( z [ j ] -0 . 5*epsilon) 
if  (z[j]<0.0  and  z[k]<0.0)  [uReg[i] [j+Nz] [k+Nz]  = 
if  (z[j]>=0.0  and  z[k]>=0.0)  [uReg[i] [j+Nz] [k+Nz]  = 

} 


if  (fabs (z [ j ] -z [k] )  <  aReg  and 
if  (z[j]<0.0  and  z[k]<0.0) 
if  (z[j]>=0.0  and  z[k]>=0.0) 
if  (z[j]<0.0  and  z[k]>=0.0) 
if  (z[j]>=0.0  and  z[k]<0.0) 

} 

}  }  } 


(fabs (z [j ] -0.5* epsilon) 
[uReg[i] [j+Nz] [k+Nz]  = 
[uReg[i] [j+Nz] [k+Nz]  = 
[uReg[i] [j+Nz] [k+Nz]  = 
[uReg[i] [j+Nz] [k+Nz]  = 


k<Nz; k++) { 


+  f abs ( z [ k] -0 . 5*epsilon) )  >=  aReg)  { 

qmv [ j ] *qmv [ j ] *lBl/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) ) 

qmv [ j ] *qmv [ j ] *lB2/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) ) 


qmv [ j ] *qmv [ j ] *1B1/ sqrt (r [i] 
qmv [ j ] *qmv [ j ] *1B2/ sqrt (r [i] 


+  f abs ( z [ k] -0 . 5*epsilon) )  <  aReg)  { 

qmv [ j ] *qmv [ j ] *lBl/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) )  +  qmv [ j ] *qmv [ j ] *lBl/sqrt (r [i] 

qmv [ j ] *qmv [ j ] *lB2/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) )  +  qmv [ j ] *qmv [ j ] *lB2/sqrt (r [i] 
qmv [ j ] *qmv [k] *screen/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) ) ; } 
qmv [ j ] *qmv [k] *screen/sqrt (r [i] *r [i]  +  pow (aReg, 2 . 0) ) ; } 


pow (z [ j ] +z [k] -epsilon, 2.0)) *image;  continue; } 
pow (z [ j ] +z [k] -epsilon, 2.0)) *image;  continue; } 


]  +  pow (z [j ] +z [k] -epsilon, 2 . 0) ) *image;  continue;} 
]  +  pow (z [j ] +z [k] -epsilon, 2 . 0) ) *image;  continue;} 


[i]  +  pow (z [j ] +z [k] -epsilon, 2 . 0) ) *image;  continue;} 
[i]  +  pow (z [j ] +z [k] -epsilon, 2 . 0) ) *image;  continue;} 


+  pow (z [ j ] +z [k] - epsilon, 2.0) ) * image; } 
+  pow (z [ j ] +z [k] -epsilon, 2.0)) *image; } 


+  pow (aReg, 2 . 0) ) * image; } 
+  pow (aReg, 2 . 0) ) * image; } 


[i]  +  pow (z [j ] +z [k] -epsilon, 2 . 0) ) *image; } 
[i]  +  pow (z [j ] +z [k] -epsilon, 2 . 0) ) *image; } 


[i]  +  pow (aReg, 2 . 0) ) * image; } 
[i]  +  pow (aReg, 2 . 0) ) * image; } 


*r[i]  +  pow (z [j ] +z [k] -epsilon, 2 . 0) ) *image; } 
*r[i]  +  pow (z [j ] +z [k] -epsilon, 2 . 0) ) *image; } 


*r[i]  +  pow (aReg, 2 . 0) ) * image; } 
*r[i]  +  pow (aReg, 2 . 0) ) * image; } 
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} 


void  CoulombFluid : : SetPairPotential2Walls ( )  { 

double  Vdepthp,  Vdepthm; 

Vlength  =  5.0/kappal; 

Vdepthp  =  -depth; 

Vdepthm  =  -depth; 

Vlength  =  2 . 1* (z [ 1 ] -z [0]  )  ; 

sigma  =  pow ( 5000 , -1 . 0 )* le2 ; 

aReg  =  5 . 0/kFT [Nz-1 ] ;  cout  <<  "highest  value  for  kFT  is  "  <<  kFT[Nz-l]  <<  "/nm,  and  aReg  =  "  <<  aReg  <<  "  nm"  <<  endl; 


for  ( j=0; j<Nz; j++)  { 

Vextp[j]  =  Vdepthp*exp (- (z [j ] -z [0] ) /Vlength)  +  Vdepthp*exp ( (z [j ] -z [Nz-1] ) /Vlength) ; 
Vextm[j]  =  Vdepthm*exp (- (z [j ] -z [0] ) /Vlength)  +  Vdepthm*exp ( (z [j ] -z [Nz-1] ) /Vlength) ; 


if  (  j  <  N1  or  (Nz-Nl-l)<j  )  {  Vextptj]  =  Vdepthp;  Vextm[j]  =  Vdepthm;  }  else  Vextp[j]  =  Vextm[j]  =  0; 


} 

for  ( j  =0 ; j  <Nz ; j  ++)  { 

} 


for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

if  (j==k  and  r[i]==0)  { 

u[0] [j] [k]  =  Large;  continue; 

} 

u [ i] [ j ] [ k]  =  qp*qp* 1B1 / sqrt ( r [ i ] *r [ i ]  +  pow (z [ j ] -z [k] , 2 . 0) ) ; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

if  (j==k  and  r[i]==0)  { 

u[0]  [j+Nz]  [k]  =  -Large;  continue; 

} 

u  [ i ]  [  j +Nz ]  [ k]  =  -qp*qm*lBl/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) ) ; 
u[i] [j] [k+Nz]  =  u [ i ] [j+Nz] [k] ; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

if  (j==k  and  r[i]==0)  { 

u[0] [j+Nz] [k+Nz]  =  Large;  continue; 

} 

u [i] [j+Nz] [k+Nz]  =  qm*qm*lBl/ sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] ,2.0) ) ; 

}  }  } 


for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

if  (r [i]  ==  0.0)  [uHT [i] [ j ] [k]  =  Large;  continue;} 

uHT [i] [ j ] [k]  =  qp*qp*lBl*exp (-fabs (z [ j ] -z [k] ) *kFT [i] ) /kFT [i]  *2*pi; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz ; j ++) {  for  (k=Nz; k<2*Nz; k++) { 

if  (r[i]  ==  0.0)  [uHT  [i]  [ j ]  [k]  =  -Large;  uHT [ i ]  [ j +Nz ]  [ k-Nz ]  =  -Large;  continue;} 
uHT [i] [ j ] [k]  =  -qp*qm*lBl*exp (-fabs (z [ j ] -z [k-Nz] ) *kFT [i] ) /kFT [i]  *2*pi; 

uHT [ i ] [j+Nz] [k-Nz]  =  uHT [ i ] [j] [k] ; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=Nz ; j<2*Nz ; j ++) {  for  (k=Nz; k<2*Nz; k++) { 

if  (r [i]  ==  0.0)  [uHT  [i]  [ j ]  [k]  =  Large;  continue;} 

uHT [ i ] [ j ] [ k]  =  qm*qm*lBl *exp (-tabs (z [j-Nz] -z [ k-Nz ] ) *kFT [ i ] ) /kFT [ i ]  *2*pi ; 

}  }  } 


for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz ; j ++) {  for  (k=0; k<Nz; k++) { 

if  (fabs (z [ j ] -z [k] )  <  aReg)  { 

uReg [i] [ j ] [k]  =  qp*qp*lBl/sqrt (r [i] *r [i]  +  aReg*aReg) ;  continue; 

} 

uReg [ i ]  [j]  [k]  =  u[i]  [j]  [k]  ; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz ; j ++) {  for  (k=0; k<Nz; k++) { 

if  (fabs (z [ j ] -z [k] )  <  aReg)  { 

uReg [ i ][ j ][ k+Nz ]  =  -qp*qm*lBl/sqrt (r [i] *r [i]  +  aReg*aReg) ; 
uReg[i] [j+Nz] [k]  =  uReg[i] [j] [k+Nz];  continue; 

} 

uReg [i] [j ] [k+Nz]  =  u [i] [ j ] [k+Nz] ; 
uReg[i] [j+Nz] [k]  =  uReg[i] [j] [k+Nz]; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

if  (fabs (z [ j ] -z [k] )  <  aReg)  { 

uReg [ i ][ j +Nz ][ k+Nz ]  =  qm*qm*lBl/sqrt (r [i] *r [i]  +  aReg* aReg ) ;  continue; 

} 

uReg[i] [j+Nz] [k+Nz]  =  u[i] [j+Nz] [k+Nz]; 

}  }  } 


for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

if  (r[i]  ==  0.0)  [uRegHT [i] [ j ] [k]  =  Large;  continue;} 
if  (fabs (z [ j ] -z [k] )  <  aReg)  { 

uRegHT [i] [j ] [k]  =  qp*qp*lBl*exp (-aReg*kFT [i] ) /kFT [i]  *2*pi;  continue; 

} 

uRegHT [i] [ j ] [k]  =  qp*qp*lBl*exp (-fabs (z [ j ] -z [k] ) *kFT [i] ) /kFT [i]  *2*pi; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz ; j ++) {  for  (k=Nz; k<2*Nz; k++) { 

if  (r [i]  ==  0.0)  [uRegHT [i] [j ] [k]  =  -Large;  continue;} 
if  (fabs (z [j ] -z [k-Nz] )  <  aReg)  { 

uRegHT [i] [j] [k]  =  -qp*qm*lBl*exp (-aReg*kFT [i] ) /kFT [i]  *2*pi; 
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uRegHT [i] [j+Nz] [k-Nz]  =  uRegHT[i] [j] [k] ;  continue; 

} 

uRegHT [i] [ j ] [k]  =  ~qp*qm*lBl*exp (-fabs (z [ j ] -z [k-Nz] ) *kFT [i] ) /kFT [i]  *2*pi; 

uRegHT [i] [j+Nz] [k-Nz]  =  uRegHT [i] [j] [k] ; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=Nz ; j<2*Nz ; j ++) {  for  (k=Nz; k<2*Nz; k++) { 

if  (r[i]  ==  0.0)  {uRegHT [i] [j ] [k]  =  Large;  continue;} 
if  ( fabs ( z [ j -Nz ] -z [ k-Nz ] )  <  aReg)  { 

uRegHT [ i ][ j ][ k]  =  qm*qm*lBl*exp (~aReg*kFT [i] ) /kFT [i]  *2*pi;  continue; 

} 

uRegHT [ i ][ j ][ k]  =  qm*qm*lBl*exp ( -fabs ( z [ j -Nz ] -z [ k-Nz ]) *kFT [ i ]) /kFT [ i ]  *2*pi; 

}  }  } 


} 

void  CoulombFluid : : SetPairPotential2DielectricWalls ( )  { 


double  Vdepthp,  Vdepthm,  A13,  A12,  *norm,  *VexIm,  B,  *kFT2,  Nz2=8000; 

norm  =  (double*)  calloc  (Nr,  sizeof (double) ) ; 

Vexlm  =  (double*)  calloc  (Nz,  sizeof (double) ) ; 

kFT2  =  (double*)  calloc  (Nz2,  sizeof (double) ) ; 
for (k=0; k<Nz2; k++)  kFT2[k]  =  k*0.05; 


Vlength  =  5.0/kappal; 

Vdepthp  =  -depth; 

Vdepthm  =  -depth; 

Vlength  =  2.1* (z [1] -z [0]  )  ; 

A13  =  (el-e3 ) /  (el+e3 ) ;  A12  =  (el-e2 ) / (el+e2 ) ; 
for  (i=0; i<Nr; i++) { 

norm[i]  =  1.0  -  A13*A12*exp (-2 . 0*Htot*kFT [i] ) ; 
if  (norm[i]>0)  norm[i]  =  1.0/norm[i]; 
else  norm[i]  =  1 . 0/ (-2 . 0*Htot*kFT [i] ) ; 

} 


aReg  =  5 . 0/kFT [Nz-1 ] ; 

cout  <<  "highest  value  for  kFT  is  "  <<  kFT [Nz-1]  <<  "/nm,  and  aReg  =  "  <<  aReg  <<  "  nm"  <<  endl; 


for  ( j=0; j<Nz; j++)  { 


Vextp [ j ]  = 
Vextm[j]  = 
Vextp [ j ]  = 
Vextm[j]  = 
phi [ j ] 


qpv[j]*sigma  *z [ j ] *kappal/H; 

- qmv [ j ] / qpv [ j ] *Vextp[j] ; 

qpv[ j ] *Vtot  /  2.0  *  e/ (kB*T)  *  z[j]  *  2.0/Htot  +  qpv [ j ] *QDNA [ j ] ; 
-qmv[j]*Vtot  /  2.0  *  e/(kB*T)  *  z[j]  *  2.0/Htot  -  qmv [ j ] *QDNA [ j ] ; 
-Vextp [ j ]  /  qpv [ j ] ; 


if  (  z[j]-z[0]  <  Lw)  {  Vextp[j]  +=  Vdepthp* ( (-z [j ] +z [0] +Lw) /Lw) ;  Vextm[j]  +=  Vdepthm* ( (-z [j ] +z [0] +Lw) /Lw) ;  }; 

if  (  z[Nz-l]-z[j]  <  Lw)  {  Vextp[j]  +=  -Vdepthp* ( (z [Nz-1] -z [j ] -Lw) /Lw) ;  Vextm[j]  +=  -Vdepthm* ( (z [Nz-1] -z [j ] -Lw) /Lw) ;  }; 


for  ( j=0; j<Nz; j++)  { 

Vexlm[j]  =  lBl*qp*qp/Htot*log (1 . 0/ (1 . 0-A13*A12) ) ; 

for (k=l; k<Nr; k++)  Vexlm[j]  +=  lBl*qp*qp  *  ( kFT [ k] -kFT [ k-1 ]  )  *  pow (1 . 0-A13*A12*exp (-2*Htot*kFT [k] ) , -1 . 0)  *  (A13*exp (-2* (z [Nz-1] -z [ j ] +  GridCutof f *ap/2 . 0) *kFT [k] )  +  A12*exp (-2* (z [ j ] -z [0] +  GridCutof f *ap/2 . 0) *kFT [k] ) ) 

Vextp[j]  +=  Vexlm[j]; 
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Vextm[j]  +=  Vexlm [ j ] *qm*qm/qp/qp; 


for  (i=0; i<Nr; i++) {  for  ( j =0 ; j <Nz ; j ++ ) {  for  ( k=0 ; k<Nz ; k++ ) { 

if  (j==k  and  r[i]==0)  { 

u[0] [j] [k]  =  Large;  continue; 

} 

u [ i] [ j ] [ k]  =  qp*qp* 1B1 / sqrt ( r [ i ] *r [ i ]  +  pow (z [ j ] -z [k] , 2 . 0) ) ; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz ; j ++) {  for  (k=0; k<Nz; k++) { 

if  (j==k  and  r[i]==0)  { 

u[i] [j+Nz] [k]  =  -Large;  continue; 
u[i] [j] [k+Nz]  =  u [ i ] [j+Nz] [k] ; 

} 

u  [ i ]  [  j +Nz ]  [ k]  =  -qp*qm*lBl/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) ) ; 
u[i] [j] [k+Nz]  =  u [ i ] [j+Nz] [k] ; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

if  (j==k  and  r[i]==0)  { 

u[i] [j+Nz] [k+Nz]  =  Large;  continue; 

} 

u [i] [j+Nz] [k+Nz]  =  qm*qm*lBl/ sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] ,2.0) ) ; 

}  }  } 


for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz ; j ++) {  for  (k=0; k<Nz; k++) { 

if  (r [i]  ==  0.0)  { uHT [ 

uHT [i] [ j ] [k]  =  2*pi*qp*qp*lBl/kFT [i] *exp (-fabs (z [ j ] -z [k] ) *kFT [i] ) ; 

uHT [i] [ j ] [k]  +=  2*pi*qp*qp*lBl/kFT [i] *norm[i] * (A12*exp (-(z[j]+z[k]-2*z[0]+  GridCutof f *ap) *kFT [i] )  +  A13*exp (-(2*z[Nz-l]+  GridCutof f *ap  -  z [ j ] -z [k] ) *kFT [i] ) ) ; 
uHT [i] [ j ] [k]  +=  2*pi*qp*qp*lBl/kFT [i] *norm[i] *  A13*A12* (exp (-2 . 0* (Htot  +  0.5*(z[j]-z[k])) *kFT [i] ) +exp (-2 . 0* (Htot  -  0.5*(z[j]-z[k])) *kFT [i] ) ) ; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=Nz; k<2*Nz; k++) { 

if  (r [i]  ==  0.0)  [uHT [i] [ j ] [k]  =  -Large;  uHT [i] [ j+Nz] [k-Nz]  =  -Large;  continue;} 
uHT [i] [ j ] [k]  =  -2*pi*qp*qm*lBl/kFT [i] *exp (-fabs (z [ j ] -z [k-Nz] ) *kFT [i] ) ; 

uHT [i] [ j ] [k]  +=  -2*pi*qp*qm*lBl/kFT [i] *norm[i] * (A12*exp (- (z [ j ] +z [k-Nz] -2*z  [0]  +  GridCutof f *ap) *kFT [i] )  +  A13*exp (-(2*z[Nz-l]+  GridCutof f*ap  -  z [ j ] -z [k-Nz] ) *kFT [i] ) ) ; 
uHT [i] [ j ] [k]  +=  -2*pi*qp*qm*lBl/kFT [i] *norm[i] *  A13*A12* (exp (-2.0* (Htot  +  0 . 5* (z [ j ] -z [k-Nz] ) ) *kFT [i] ) +exp (-2.0* (Htot  -  0 . 5* (z [ j ] -z [k-Nz] ) ) *kFT [i] ) ) ; 
uHT [ i ] [j+Nz] [k-Nz]  =  uHT [ i ] [j] [k] ; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=Nz ; j<2*Nz ; j ++) {  for  (k=Nz; k<2*Nz; k++) { 

if  (r [i]  ==  0.0)  [uHT  [i]  [ j ]  [k]  =  Large;  continue;} 

uHT [ i ]  [ j ]  [ k]  =  2  *pi*qm*qm*lBl /kFT [ i ] *exp (-fabs (z [j-Nz] -z [ k-Nz ] ) *kFT [ i] ) ; 

uHT [ i ]  [ j ]  [ k]  +=  2 *pi*qm*qm*lBl /kFT [ i ] *norm [ i ] * (A12 *exp (- (z [ j -Nz ] +z [ k-Nz ] -2* z [ 0 ] +  GridCutof f*ap) *kFT [ i ] )  +  A13*exp (-(2*z[Nz-l]+  GridCutof f*ap  -  z [ j -Nz ] -z [ k-Nz ] ) *kFT [ i ] ) ) 
uHT [ i ]  [ j ]  [ k]  +=  2 *pi*qm*qm*lBl /kFT [ i ] *norm [ i ] *  A13*A12 * (exp (-2.0* (Htot  +  0.5*(z[j-Nz]-z[ k-Nz ] ) ) *kFT [ i ] ) +exp ( -2 . 0* (Htot  -  0.5*(z[j-Nz]-z[ k-Nz ] ) ) *kFT [ i ] ) ) ; 

}  }  } 


for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz ; j ++) {  for  (k=0; k<Nz; k++) { 

if  (fabs (z [ j ] -z [k] )  <  aReg)  { 

uReg [i] [ j ] [k]  =  qp*qp*lBl/sqrt (r [i] *r [i]  +  aReg*aReg) ;  continue; 

} 

uReg [ i ]  [j]  [k]  =  u[i]  [j]  [k]  ; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz ; j ++) {  for  (k=0; k<Nz; k++) { 

if  (fabs (z [ j ] -z [k] )  <  aReg)  { 

uReg [ i ][ j ][ k+Nz ]  =  -qp*qm*lBl/sqrt (r [i] *r [i]  +  aReg*aReg) ; 
uReg[i] [j+Nz] [k]  =  uReg[i] [j] [k+Nz];  continue; 

} 

uReg [i] [j ] [k+Nz]  =  u [i] [ j ] [k+Nz] ; 
uReg[i] [j+Nz] [k]  =  uReg[i] [j] [k+Nz]; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

if  (fabs (z [ j ] -z [k] )  <  aReg)  { 

uReg [ i ][ j +Nz ][ k+Nz ]  =  qm*qm*lBl/sqrt (r [i] *r [i]  +  aReg* aReg ) ;  continue; 

} 

uReg[i] [j+Nz] [k+Nz]  =  u[i] [j+Nz] [k+Nz]; 

}  }  } 


for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

if  (r[i]  ==  0.0)  [uRegHT [i] [ j ] [k]  =  Large;  continue;} 
uRegHT [ i ] [ j ] [ k]  =  uHT [ i ] [ j ] [ k] ; 
if  (fabs (z [ j ] -z [k] )  <  aReg)  { 

uRegHT [i] [ j ] [k]  +=  2*pi*qp*qp*lBl/kFT [i] * (  exp (-aReg*kFT [i] )  -  exp (-fabs (z [ j ] -z [k] ) *kFT [i] )  ) ; 

} 

if  ( f abs ( z [ j ] +z [ k] -2 * z [ 0 ] +  GridCutof f*ap)  <  aReg)  { 

uRegHT [i]  [j ]  [k]  +=  2*pi*qp*qp*lBl/kFT [i] *norm[i] *A12* (  exp (-aReg*kFT [i] )  -  exp ( - ( z [ j ] +z [ k] -2 * z [ 0 ] +  GridCutoff *ap) *kFT [i] ))  ; 

} 

if  (fabs (2*z [Nz-1] +  GridCutof f*ap-z [ j ] -z [k] )  <  aReg)  { 

uRegHT [ i ][ j ][ k]  +=  2*pi*qp*qp*lBl/kFT [i] *norm[i] *A13* (  exp (-aReg*kFT [i] )  -  exp (- (2*z [Nz-1] +  GridCutoff *ap-z [j ] -z [k] ) *kFT [i] )) ; 

} 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=Nz; k<2*Nz; k++) { 

if  (r [i]  ==  0.0)  [uRegHT [i] [j ] [k]  =  -Large;  continue;} 
uRegHT [i] [j] [k]  =  uHT [ i ] [ j ] [ k] ; 
if  (fabs (z [j ] -z [k-Nz] )  <  aReg)  { 

uRegHT [ i ][ j ][ k]  +=  -2*pi*qp*qm*lBl/kFT [i] * (  exp (-aReg*kFT [i] )  -  exp (-fabs (z [j ] -z [k-Nz] ) *kFT [i] )  ); 

} 

if  (fabs (z [j ] +z [k-Nz] -2*z [0] +  GridCutof f*ap)  <  aReg)  { 

uRegHT [i]  [j ]  [k]  +=  -2*pi*qp*qm*lBl/kFT [i] *norm[i] *A12* (  exp (-aReg*kFT [i] )  -  exp ( - ( z [ j ] +z [ k-Nz ] -2 * z [ 0 ] +  GridCutoff *ap) *kFT [i] )) ; 

} 

if  (fabs (2*z [Nz-1] +  GridCutof f*ap-z [ j ] -z [k] )  <  aReg)  { 

uRegHT [ i ][ j ][ k]  +=  -2*pi*qp*qm*lBl/kFT [i] *norm[i] *A13* (  exp (-aReg*kFT [i] )  -  exp (- (2*z [Nz-1] +  GridCutoff *ap-z [j ] -z [k-Nz] ) *kFT [i] )) ; 

} 

uRegHT [i] [j+Nz] [k-Nz]  =  uRegHT [i] [j] [k] ; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=Nz; j<2*Nz; j++) {  for  (k=Nz; k<2*Nz; k++) { 
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if  (r[i]  ==  0.0)  {uRegHT [i] [ j ] [k]  =  Large;  continue;} 
uRegHT [ i ] [ j ] [ k]  =  uHT [ i ] [ j ] [ k] ; 
if  ( f abs ( z [ j -Nz ] -z [ k-Nz ] )  <  aReg)  { 

uRegHT [i] [j ] [k]  +=  2*pi*qm*qm*lBl/kFT [i] * (  exp (-aReg*kFT [i] )  -  exp ( -fabs ( z [ j -Nz ] -z [ k-Nz ]) *kFT [ i ] )  ); 

} 

if  (fabs (z [ j ] +z [k] -2*z [0] +  GridCutof f*ap)  <  aReg)  { 

uRegHT [i] [j ] [k]  +=  2*pi*qm*qm*lBl/kFT [i] *norm[i] *A12* (  exp (-aReg*kFT [i] )  -  exp ( - ( z [ j -Nz ] +z [ k-Nz ] -2* z [ 0 ] +  GridCutoff *ap) *kFT [i] )) ; 

} 

if  (fabs (2*z [Nz-1] +  GridCutof f*ap-z [ j ] -z [k] )  <  aReg)  { 

uRegHT [i] [j ] [k]  +=  2*pi*qm*qm*lBl/kFT [i] *norm[i] *A13* (  exp (-aReg*kFT [i] )  -  exp (- (2*z [Nz-1] +  GridCutoff *ap-z [j -Nz] -z [k-Nz] ) *kFT [i] )) ; 

} 

}  }  } 


for  (j 
)  <  aReg) 
i]  +  pow ( 


(j  =0 ; j  <Nz  ; j  ++)  { 

j)  { 

w  (z  [j ]  -z  [k]  ,2 .  0)  )  ; 
■n*qm*lBl  *  tanh(d. 


free (norm) ;  free (Vexlm) ;  free(kFT2); 

} 

void  CoulombFluid : : SetRegularizedPairPotential2DielectricWalls ()  { 


double  Vdepthp,  Vdepthm,  A13,  A12,  *norm,  *Reg,  *VexIm,  B,  *kFT2,  Nz2=8000; 

norm  =  (double*)  calloc  (Nr,  sizeof (double) ) ; 

Reg  =  (double*)  calloc  (Nr,  sizeof (double) ) ; 

Vexlm  =  (double*)  calloc  (Nz,  sizeof (double) ) ; 

kFT2  =  (double*)  calloc  (Nz2,  sizeof (double) ) ; 
for (k=0; k<Nz2; k++)  kFT2[k]  =  k*0.05; 


Vlength  =  5.0/kappal; 

Vdepthp  =  -depth; 

Vdepthm  =  -depth; 

Vlength  =  2.1* (z [1] -z [0]  )  ; 

A13  =  (el-e3 ) /  (el+e3 ) ;  A12  =  (el-e2) / (el+e2) ; 
for  (i=0; i<Nr; i++) { 

norm[i]  =  1.0  -  A13*A12*exp (-2 . 0*Htot*kFT [i] ) ; 
if  (norm[i]>0)  norm[i]  =  1.0/norm[i]; 
else  norm[i]  =  1 . 0/ (-2 . 0*Htot*kFT [i] ) ; 

} 


for  (i=0; i<Nr; i++)  Reg[i]  =  exp (-2 . 0*r [i] *r [i] /r [Nr-1] /r [Nr-1] ) ; 


aReg  =  5 . 0/kFT [Nz-1 ] ; 

cout  <<  "highest  value  for  kFT  is  "  <<  kFT[Nz-l]  <<  "/nm,  and  aReg  =  "  <<  aReg  <<  "  nm"  <<  endl; 


for  ( j  =0 ;  j  <Nz ; j  ++ )  { 


} 


Vextp [ 

:j] 

=  qpv| 

:j] 

* sigma  *z  [  j ] * 

kappal/H; 

Vextm [ 

:j] 

=  - qmv | 

:j] 

/ qPv [ j ] *Vextp 

[j]; 

Vextp [ 

:j] 

=  qpv| 

:j] 

*Vtot  /  2.0  * 

e/ (kB*T) 

*  Z  [  j  ] 

*  2.0/Htot 

+  qpv [ j ] *QDNA [ 

:  j  ]  ; 

Vextm [ 

:j] 

=  - qmv | 

:j] 

*Vtot  /  2.0  * 

e/ (kB*T) 

*  z  [  j  ] 

*  2.0/Htot 

-  qmv [ j ] *QDNA [ 

:  j  ] ; 

phi [ j ] 

=  -Vextp 

[j]  /  qpv [ j ] ; 

<  JM1  Ol 

(Nz-Nl-1)  <j  ) 

{  Vextp  [j . 

if  (  z[j]-z[0]  <  Lw)  {  Vextp[j]  +=  Vdepthp* ( (-z [j ] +z [0] +Lw) /Lw) ;  Vextm[j]  +=  Vdepthm* ( (-z [j ] +z [0] +Lw) /Lw) ;  }; 

if  (  z[Nz-l]-z[j]  <  Lw)  {  Vextp[j]  +=  -Vdepthp* ( (z [Nz-1] -z [j ] -Lw) /Lw) ;  Vextm[j]  +=  -Vdepthm* ( (z [Nz-1] -z [ j ] -Lw) /Lw) ; 


}  ; 


for  ( j=0; j<Nz; j++)  { 
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Vexlm[j]  =  lBl*qp*qp/Htot*log (1 . 0/ (1 . 0-A13*A12) ) ; 

for (k=l; k<Nr; k++)  Vexlm[j]  +=  lBl*qp*qp  *  (kFT [k] -kFT [k-1] )  *  pow (1 . 0-A13*A12*exp (-2*Htot*kFT [k] ) , -1 . 0)  *  (A13*exp (-2* (z [Nz-1] -z [ j ] +  GridCutof f *ap/2 . 0) *kFT [k] )  +  A12*exp (-2* (z [ j ] -z  [0]  +  GridCutof f*ap/2 . 0) *kFT [k] ) ) 

Vextp[j]  +=  Vexlm[j]; 

Vextm[j]  +=  Vexlm [ j ] *qm*qm/qp/qp; 


cout  <<  "Lennard- Jones  interaction  with  wall  included"  <<  endl; 
for  ( j=0; j<Nz; j++)  { 

B  =  pow (ap/ (z [ j ] +1 . 5) , 6 . 0) ;  if  (B  >  0.5)  {  B  =  4 . 0* (B*B-B) +1 . 0 ;  Vextp[j]  +=  B;  Vextm[j]  +=  B;  } 

B  =  pow (ap/ (z [ j ] -1 . 5) , 6 . 0) ;  if  (B  >  0.5)  {  B  =  4 . 0* (B*B-B) +1 . 0 ;  Vextp[j]  +=  B;  Vextm[j]  +=  B;  } 


for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

if  (j==k  and  r[i]==0)  { 

u[0] [j] [k]  =  Large;  continue; 

} 

u[i][j][k]  =  qp*qp* 1B1 / sqrt ( r [ i ] *r [ i ]  +  pow (z [ j ] -z [k] , 2 . 0) )  *  Reg[i]; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

if  (j==k  and  r[i]==0)  { 

u[i]  [j+Nz]  [k]  =  -Large;  continue; 
u[i] [j] [k+Nz]  =  u [i] [j+Nz] [k] ; 

} 

u [ i ] [ j +Nz ] [ k]  =  -qp*qm*lBl/sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) )  *  Reg[i]; 

u[i] [j] [k+Nz]  =  u [ i ] [j+Nz] [k] ; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz ; j ++) {  for  (k=0; k<Nz; k++) { 

if  (j==k  and  r[i]==0)  { 

u[i] [j+Nz] [k+Nz]  =  Large;  continue; 

} 

u [ i ]  [ j  +Nz ]  [ k+Nz ]  =  qm*qm*lBl / sqrt (r [ i ] *r [i]  +  pow (z[j]-z[k],2.0))  *  Reg [ i ] ; 

}  }  } 


for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz ; j ++) {  for  (k=0; k<Nz; k++) { 

if  (r  [i]  ==  0.0)  [uHT [i]  [ j ]  [k]  =  Large;  continue;} 

uHT [i] [ j ] [k]  =  2*pi*qp*qp*lBl/kFT [i] *exp (-fabs (z [ j ] -z [k] ) *kFT [i] ) ; 

uHT  [i]  [ j ]  [k]  +=  2*pi*qp*qp*lBl/kFT [i] *norm[i] * (A12*exp (-(z[j]+z[k]-2*z[0]+  GridCutof f*ap) *kFT [i] )  +  A13*exp (-(2*z[Nz-l]+  GridCutof f*ap  -  z [ j ] -z [k] ) *kFT [i] ) ) ; 
uHT [i]  [ j ]  [k]  +=  2*pi*qp*qp*lBl/kFT [i] *norm[i] *  A13*A12* (exp (-2 . 0* (Htot  +  0.5*(z[j]-z[k])) *kFT [i] ) +exp (-2 . 0* (Htot  -  0.5*(z[j]-z[k]))  *kFT [i]  )  )  ; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=Nz; k<2*Nz; k++) { 

if  (r [i]  ==  0.0)  [uHT [i] [ j ] [k]  =  -Large;  uHT [i] [ j+Nz] [k-Nz]  =  -Large;  continue;} 
uHT [i] [ j ] [k]  =  -2*pi*qp*qm*lBl/kFT [i] *exp (-fabs (z [ j ] -z [k-Nz] ) *kFT [i] ) ; 

uHT [i] [ j ] [k]  +=  -2*pi*qp*qm*lBl/kFT [i] *norm[i] * (A12*exp (- (z [ j ] +z [k-Nz] -2*z  [0]  +  GridCutof f *ap) *kFT [i] )  +  A13*exp (-(2*z[Nz-l]+  GridCutof f*ap  -  z [ j ] -z [k-Nz] ) *kFT [i] ) ) ; 
uHT [i] [ j ] [k]  +=  -2*pi*qp*qm*lBl/kFT [i] *norm[i] *  A13*A12* (exp (-2.0* (Htot  +  0 . 5* (z [ j ] -z [k-Nz] ) ) *kFT [i] ) +exp (-2.0* (Htot  -  0 . 5* (z [ j ] -z [k-Nz] ) ) *kFT [i] ) ) ; 
uHT [ i ] [j+Nz] [k-Nz]  =  uHT [ i ] [j] [k] ; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=Nz ; j<2*Nz ; j ++) {  for  (k=Nz; k<2*Nz; k++) { 

if  (r [i]  ==  0.0)  [uHT  [i]  [ j ]  [k]  =  Large;  continue;} 

uHT [ i ]  [ j ]  [ k]  =  2  *pi*qm*qm*lBl /kFT [ i ] *exp (-fabs (z [j-Nz] -z [ k-Nz ] ) *kFT [ i] ) ; 

uHT[i][j][k]  +=  2 *pi*qm*qm*lBl /kFT [ i ] *norm [ i ] * (A12 *exp ( - ( z [ j -Nz ] +z [ k-Nz ] -2* z [ 0 ] +  GridCutoff *ap) *kFT [i] )  +  A13*exp (- (2*z [Nz-1] +  GridCutof f*ap  -  z [ j-Nz] -z [k-Nz] ) *kFT [i] ) ) ; 
uHT [ i ]  [ j ]  [ k]  +=  2 *pi*qm*qm*lBl /kFT [ i ] *norm [ i ] *  A13*A12 * (exp (-2.0* (Htot  +  0.5*(z[j-Nz]-z[ k-Nz ] ) ) *kFT [ i ] ) +exp (-2.0* (Htot  -  0.5*(z[j-Nz]-z[ k-Nz ] ) ) *kFT [ i ] ) ) ; 

}  }  } 


for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

if  (fabs (z [ j ] -z [k] )  <  aReg)  { 

uReg [i] [ j ] [k]  =  qp*qp*lBl/sqrt (r [i] *r [i]  +  aReg*aReg)  *  Reg[i];  continue; 

} 

uReg [i]  [j]  [k]  =  u[i]  [j]  [k]  ; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

if  (fabs (z [ j ] -z [k] )  <  aReg)  { 

uReg[i] [j] [k+Nz]  =  -qp*qm*lBl/sqrt (r [i] *r [i]  +  aReg*aReg)  *  Reg[i]; 
uReg[i] [j+Nz] [k]  =  uReg[i] [j] [k+Nz];  continue; 

} 

uReg [i] [j ] [k+Nz]  =  u [i] [ j ] [k+Nz] ; 
uReg[i] [j+Nz] [k]  =  uReg[i] [j] [k+Nz]; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz ; j ++) {  for  (k=0; k<Nz; k++) { 

if  (fabs (z [ j ] -z [k] )  <  aReg)  { 

uReg[i] [j+Nz] [k+Nz]  =  qm*qm*lBl/sqrt (r [i] *r [i]  +  aReg*aReg)  *  Reg[i];  continue; 

} 

uReg[i] [j+Nz] [k+Nz]  =  u[i] [j+Nz] [k+Nz]; 

}  }  } 


for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

if  (r[i]  ==  0.0)  [uRegHT [i] [ j ] [k]  =  Large;  continue;} 
uRegHT [ i ] [ j ] [ k]  =  uHT [ i ] [ j ] [ k] ; 
if  (fabs (z [ j ] -z [k] )  <  aReg)  { 

uRegHT [i] [ j ] [k]  +=  2*pi*qp*qp*lBl/kFT [i] * (  exp (-aReg*kFT [i] )  -  exp (-fabs (z [ j ] -z [k] ) *kFT [i] )  ) ; 

} 

if  (fabs (z [ j ] +z [k] -2*z [0] +  GridCutof f*ap)  <  aReg)  { 

uRegHT [i] [j ] [k]  +=  2*pi*qp*qp*lBl/kFT [i] *norm[i] *A12* (  exp (-aReg*kFT [i] )  -  exp (- (z [ j ] +z [k] -2*z [0] +  GridCutoff *ap) *kFT [i] )) ; 

} 

if  (fabs (2*z [Nz-1] +  GridCutoff *ap-z [j ] -z [k] )  <  aReg)  { 

uRegHT [ i ][ j ][ k]  +=  2*pi*qp*qp*lBl/kFT [i] *norm[i] *A13* (  exp (-aReg*kFT [i] )  -  exp  (- (2*z  [Nz-1] +  GridCutof f*ap-z [ j ] -z [k] ) *kFT [i] ) ) ; 

} 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=Nz; k<2*Nz; k++) { 

if  (r [i]  ==  0.0)  [uRegHT [i] [j ] [k]  =  -Large;  continue;} 
uRegHT [i] [j] [k]  =  uHT [ i ] [ j ] [ k] ; 
if  (fabs (z [j ] -z [k-Nz] )  <  aReg)  { 

uRegHT [i] [j ] [k]  +=  -2*pi*qp*qm*lBl/kFT [i] * (  exp (-aReg*kFT [i] )  -  exp (-fabs (z [j ] -z [k-Nz] ) *kFT [i] )  ); 

} 

if  ( f abs ( z [ j ] +z [ k-Nz ] -2 * z [ 0 ] +  GridCutof f*ap)  <  aReg)  { 

uRegHT [i] [j ] [k]  +=  -2*pi*qp*qm*lBl/kFT [i] *norm[i] *A12* (  exp (-aReg*kFT [i] )  -  exp (- (z [j ] +z [k-Nz] -2*z [0] +  GridCutoff *ap) *kFT [i] )) ; 

} 

if  (fabs (2*z [Nz-1] +  GridCutoff *ap-z [j ] -z [k] )  <  aReg)  { 
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uRegHT [ i ] [ j ] [ k]  +=  -2*pi*qp*qm*lBl/kFT [i] *norm[i] *A13* (  exp (-aReg*kFT [i] )  -  exp (- (2*z [Nz-1] +  GridCutoff *ap-z [ j ] -z [k-Nz] ) *kFT [i] ) ) ; 

} 

uRegHT [i] [j+Nz] [k-Nz]  =  uRegHT [i] [j] [k] ; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=Nz; j<2*Nz; j++) {  for  (k=Nz; k<2*Nz; k++) { 

if  (r[i]  ==  0.0)  {uRegHT [i] [j ] [k]  =  Large;  continue;} 
uRegHT [i] [j] [k]  =  uHT [ i ] [ j ] [ k] ; 
if  (f abs ( z [ j -Nz] -z [k-Nz] )  <  aReg)  { 

uRegHT [i] [j ] [k]  +=  2*pi*qm*qm*lBl/kFT [i] * (  exp (~aReg*kFT [i] )  -  exp ( -f abs ( z [ j -Nz ] -z [ k-Nz ]) *kFT [ i ] )  ); 

} 

if  ( f abs ( z [ j ] +z [ k] -2 * z [ 0 ] +  GridCutoff *ap)  <  aReg)  { 

uRegHT [ i ][ j ][ k]  +=  2*pi*qm*qm*lBl/kFT [i] *norm[i] *A12* (  exp (-aReg*kFT [i] )  -  exp ( - ( z [ j -Nz ] +z [ k-Nz ] -2* z [ 0 ] +  GridCutoff *ap) *kFT [i] )) ; 

} 

if  (fabs (2*z [Nz-1] +  GridCutoff *ap-z [j ] -z [k] )  <  aReg)  { 

uRegHT [ i ][ j ][ k]  +=  2*pi*qm*qm*lBl/kFT [i] *norm[i] *A13* (  exp (-aReg*kFT [i] )  -  exp (- (2*z [Nz-1] +  GridCutoff *ap-z [j -Nz] -z [k-Nz] ) *kFT [i] )) ; 

} 

}  }  } 

free (norm) ;  free (Reg) ;  free (Vexlm) ;  free(kFT2); 

} 

void  CoulombFluid : : GnuplotDensity ( ) { 
vector<double>  zl,  nl, cpl, cml; 
gl.  remove  tmpfilesO; 

try 

{ 


gl . reset_plot  ( ) ; 
gl . unset_grid ( ) ; 

gl . set_style ( "lines" )  ;  //. set_yrange  (0 . 0,2. 0*csl) ; // . set_xrange  (-1.2  *  z [1] , 1 . 2* z [Nz-2 ] ) . set_yrange (0 . 0,2. 0*csl) ; 

for  ( j=l; j<Nz-l; j++)  {  zl .push^back (z [ j ] ) ;  nl . push^back (n [ j ] ) ;  cpl .push_back (cp [ j ] /NA) ;  cml ,push_back (cm[ j ] /NA) ;  } 

gl . plot_xy ( zl , cpl , "cation  density  (M)"); 
gl.plot  xy (zl, cml, "anion  density  (M)"); 


zl. clear ();  nl.clear();  cpl.clear();  cml . clear ( ) ; 

} 

catch  (GnuplotException  ge) 

{ 

cout  <<  ge.whatO  <<  endl; 

} 


void  CoulombFluid: : GnuplotCorrelationFunctions ( ) { 
vector<double>  zl,rl,hl; 

for  (i=0; i<Nr; i++)  {  for  ( j=0; j<2*Nz ; j ++)  {for  (k=0; k<2*Nz; k++)  { 

if  (Qs [ i ] [ j ] [ k] ! =0 . 0 )  h[i][j][k]  =  -1.0  +  le-10; 

}  }  } 

try 

{ 


if ( iterations%l  ==  0)  { g2 . remove_tmpf iles ( ) ; } 

g2 . reset_plot  ( ) ; 

cout  <<  endl  <<  endl  <<  "plotting  the  density  profiles"  <<  endl; 
g2 . unset_grid ( ) ; 
g2 . unset^surface ( ) ; 
g2 . set_hidden3d ( ) ; 


g2.cmd("set  dgrid3d  50,50,1"); 
g2.cmd ("set  pm3d"); 
g2.cmd ("set  zrange  [0.01:1]"); 
g2.cmd ("set  border  linewidth  2.0"); 

g2 . set_zlogscale (10) ; 


for  (i=0; i<Nr; i++)  {  for  ( j =0 ; j <Nz ; j ++) { 

rl . push_back ( -r [ i ] ) ; 
zl ,push_back (z [ j ] ) ; 
hi . push_back ( f abs (h [ i ] [j] [Nz])); 

} 

} 

for  (i=0; i<Nr; i++)  {  for  ( j =0 ; j <Nz ; j ++)  { 

rl ,push_back (r [i] ) ; 
zl ,push_back (z [ j ] ) ; 
hi . push_back ( f abs (h [ i ] [j] [Nz])); 

} 

} 

g2 . plot_xyz ( zl , rl , hi , " | h+- | " )  ; 

zl. clear ();  rl.clear () ;  hl.clear(); 


} 

catch  (GnuplotException  ge) 

{ 

cout  <<  ge.whatO  <<  endl; 

} 


} 

void  CoulombFluid :: InitiateCorrelationFunctions (double  *hp, double  *hm, double  *hpm, double  *dcpp, double  *dcmm, double  *dcpm, double  *sl,int  N,int  medium)  { 
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double  dist, frac; 

int  1  ; 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

dist  =  sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) ) ; 

1=0;  while  (sl[l]<dist  and  1<N)  1++; 
frac  =  (dist-sl [1-1] ) / (si [1] -si [1-1] ) ; 
if  (pow ( -1 . 0 , 1 . 0*medium) * z [ j ]  >  0.0)  { 

h [i] [ j ] [k]  =  hp[l]  +  frac* (hp[l]-hp [1-1]); 
h  [  i ]  [  j  +Nz ]  [ k+Nz ]  =  hm [ 1 ]  +  frac* (hm [ 1 ] -hm [ 1-1 ] ) ; 

h [ i ]  [ j ]  [ k+Nz ]  =  h [ i ]  [ j  +Nz ]  [ k]  =  hpm [ 1 ]  +  frac* (hpm [ 1 ] -hpm [ 1-1 ] ) ; 
c [ i ] [ j ] [ k]  =  dcpp [ 1 ]  +  frac* (dcpp [ 1 ] -dcpp [ 1-1 ] ) ; 
c [ i ]  [ j  +Nz ]  [ k+Nz ]  =  dcmm [ 1 ]  +  frac* (dcmm [ 1 ] -dcmm [ 1-1 ] ) ; 
c [ i ] [ j ] [ k+Nz ]  =  c[i][j+Nz][k]  =  dcpm [ 1 ]  +  frac* (dcpm [ 1 ] -dcpm [ 1-1 ] ) ; 

} 

if  (1  >=  N)  {  h[i] [j] [k]  =  0.0;  c[i] [j] [k]  =  0.0;  } 
y[i] [j] [k]  =  h[i] [j] [k]-c[i] [j] [k] ; 


void  CoulombFluid :: InitiateCorrelationFunctions2Walls (double  *hp, double  *hm, double  *hpm, double  *dcpp, double  *dcmm, double  *dcpm, double  *sl,int  N,int  medium)  { 

double  dist, frac; 

int  1; 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

dist  =  sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) ) ; 

1=0;  while  (sl[l]<dist  and  1<N)  1++; 

frac  =  (dist-sl [1-1] )/ (si [1] -si [1-1] ) ; 

h[i] [j] [k]  =  hp[l]  +  frac* (hp[l]-hp [1-1]); 

h  [ i ]  [ j  +Nz ]  [ k+Nz ]  =  hm [ 1 ]  +  frac* (hm [ 1 ] -hm [ 1-1 ] ) ; 

h [ i ]  [ j ]  [ k+Nz ]  =  h [ i ]  [ j  +Nz ]  [ k]  =  hpm [ 1 ]  +  frac* (hpm [ 1 ] -hpm [ 1-1 ] ) ; 
if  (dist  <  4*ap*ap)  { 
h[i]  [j]  [k]  =  -1.0; 

if (si [1]  >  2*ap)  h [i] [ j ] [k]  =  hp[l+l]  +  frac* (hp [1+1] -hp [1] ) ; 

} 

if  (dist  <  4*am*am)  { 
h[i]  [j]  [k]  =  -1.0; 

if (si [1]  >  2* am)  h [i] [ j+Nz] [k+Nz]  =  hm[l+l]  +  frac* (hm[l+l] -hm[l] ) ; 

} 

if  (dist  <  pow (ap+am, 2 . 0) )  { 

h[i]  [j]  [k]  =  -1.0; 

if (si [1]  >  ap+am)  h [i] [ j ] [k+Nz]  =  h [i] [ j+Nz] [k]  =  hpm [1+1]  +  frac* (hpm [1+1] -hpm[l] ) ; 

} 

c[i][j][k]  =  dcpp[l]  +  frac* (dcpp [1] -dcpp [1-1 ]) ; 
c [ i ]  [ j  +Nz ]  [ k+Nz ]  =  dcmm [ 1 ]  +  frac* (dcmm [ 1 ] -dcmm [ 1-1 ] ) ; 
c [ i ] [ j ] [ k+Nz ]  =  c[i][j+Nz][k]  =  dcpm [ 1 ]  +  frac* (dcpm [ 1 ] -dcpm [ 1-1 ] ) ; 
if  (1  >=  N)  {  h[i] [j] [k]  =  0.0;  c[i] [j] [k]  =  0.0;  } 

if  (dist  ==  0.0)  |c[i][j][k]  =  dcpp [i  +  1] - (dcpp [i+2] -dcpp [i  +  1] )* (r [i  +  1] -r [i] )/ (r [i+2] -r [i  +  1] );  } 
y[i]  [j]  [k]  =  h[i]  [j]  [k]  -  c[i]  [j]  [k] ; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  (k=0; k<2*Nz; k++) { 

htest  [ i ]  [k]=h[i]  [3*Nz/2]  [k] ; 

}  } 


} 

void  CoulombFluid :: SetHankelTransf ormPairPotential ( )  { 


double  image,  screen; 

screen  =  2*1B1*1B2/ (1B2+1B1) ; 
image  =  (1B2-1B1) / (1B2+1B1) ; 


aReg  =  5 . 0/kFT [Nz-1 ] ;  cout  <<  "highest  value  for  kFT  is  "  <<  kFT[Nz-l]  <<  "/nm,  and  aReg  =  "  <<  aReg  <<  "  nm"  <<  endl; 


for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz ; j ++) { 
if  (z[j]<0.0  and  z[k]<0.0)  { uHT [ i ] [ j ] [ k] 

if  (z[j]>=0.0  and  z [k] >=0 . 0) [uHT [i] [ j ] [k] 
if  (z[j]<0.0  and  z[k]>=0.0)  { uHT [ i ] [ j ] [ k] 

if  (z[j]>=0.0  and  z[k]<0.0)  { uHT [ i ] [ j ] [ k] 

}  }  } 


for  (k=0; k<Nz; k++) { 

=  2*pi*  qpv [ j ] *qpv [ j ] *lBl*exp ( -f abs ( z [ j ] -z [ k] ) *kFT [ i ] ) /kFT [ i ]  +  2*pi*  qpv [ j ] *qpv [ j ] *lBl*exp ( -fabs ( z [ j ] +z [ k] -epsilon) *kFT [ i ]) /kFT [ i ] *image;  continue;} 
=  2*pi*  qpv [ j ] *qpv [j ] *1B2 *exp ( -fabs ( z [ j ] -z [ k] ) *kFT [ i] ) /kFT [ i ]  +  2*pi*  qpv [ j ] *qpv [ j ] *1B2 *exp ( -fabs ( z [ j ] +z [ k] -epsilon) *kFT [ i ]) /kFT [ i ] *image;  continue;} 
=  2*pi*  qpv [ j ] *qpv [ k] *screen*exp ( -fabs ( z [ j ] -z [ k] ) *kFT [ i ]) /kFT [ i ] ;  continue;} 

=  2 *pi*  qpv [ j ] *qpv [ k] * screen* exp (-fabs (z [j ] -z [k] ) *kFT [ i ] ) /kFT [ i ] ; } 


for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) { 
if  (z[j]<0.0  and  z[k]<0.0)  { uHT [ i ]  [ j +Nz ] 

if  (z[j]>=0.0  and  z [k] >=0 . 0)  [uHT [i]  [ j+Nz] 
if  (z[j]<0.0  and  z[k]>=0.0)  [uHT [i]  [ j+Nz] 
if  (z[j]>=0.0  and  z[k]<0.0)  { uHT [ i ]  [ j +Nz ] 

}  }  } 


for  (k=0; k<Nz; k++) { 

[k]  =  -2*pi*  qpv [ j ] *qmv [ j ] *lBl*exp ( -fabs ( z [ j ] -z [ k] ) *kFT [ i ]) /kFT [ i]  -  2*pi*  qpv [ j ] *qmv [j ] *lBl*exp ( -fabs ( z [ j ] +z [ k] -epsilon) *kFT [ i ]) /kFT [ i ] *image; 
[k]  =  -2*pi*  qpv [ j ] *qmv [ j ] *1B2 *exp ( -fabs ( z [ j ] -z [ k] ) *kFT [ i ]) /kFT [ i ]  -  2*pi*  qpv [ j ] *qmv [j ] *1B2 *exp ( -fabs ( z [ j ] +z [ k] -epsilon) *kFT [ i ]) /kFT [ i ] *image; 
[k]  =  -2*pi*  qpv [ j ] *qmv [ k] *screen*exp ( -fabs ( z [ j ] -z [ k] ) *kFT [ i ]) /kFT [ i ] ;  continue;} 

[k]  =  -2*pi*  qpv [ j ] *qmv [ k] *screen*exp ( -fabs ( z [ j ] -z [ k] ) *kFT [ i ]) /kFT [ i ];  } 


continue; } 
continue; } 


for  (i=0; i<Nr; i++)  {  for  ( j=0; j<Nz; j++)  { 


for  (k=0; k<Nz; k++) { 
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uHT [ i ] [j] [k+Nz]  =  uHT [ i ] [j+Nz] [k]  ; 

}  }  } 


for  (i=0; i<Nr; i++) { 


}  }  } 


for  ( j=0; j<Nz; j++)  { 


for  (k=0; k<Nz; k++) { 


if 

(z 

[j]<0.0  and  z[k]<0.0) 

{ uHT [ i ] 

[j+Nz] 

[ k+Nz ] 

=  2*pi* 

qmv  [ 

] *qmv [ j ] *lBl*exp ( -f abs ( z [ j ] -z [ k] ) *kFT [ i ] ) 

/kFT  [i] 

+ 

2*pi* 

qmv [ j ] 

if 

(z 

[j]>=0.0  and  z[k]>=0.0) 

{ uHT [ i ] 

[j+Nz] 

[ k+Nz ] 

=  2*pi* 

qmv  [ 

] *qmv [ j ] *lB2*exp ( -f abs ( z [ j ] -z [ k] ) *kFT [ i ] ) 

/kFT [i] 

+ 

2*pi* 

qmv [ j ] 

if 

(z[j]<0.0  and  z[k]>=0.0) 

{ uHT [ i ] 

[j+Nz] 

[ k+Nz ] 

=  2*pi* 

qmv  [ 

] *qmv [ k] * screen* exp ( -f abs ( z [ j ] -z [ k] ) *kFT [ i ]  )  /  kFT 

[i: 

I ;  continue; } 

if 

(z 

[j]>=0.0  and  z[k]<0.0) 

{ uHT [ i ] 

[j+Nz] 

[ k+Nz ] 

=  2*pi* 

qmv  [ 

] *qmv [ k] * screen* exp ( -f abs ( z [ j ] -z [ k] ) *kFT 

[i] ) /kFT 

[i] 

1 ; } 

qmv [ j ] *lBl*exp ( -f abs ( z [ j ] +z [ k] -epsilon) *kFT [ i ] ) /kFT [ i] * image; 
qmv [ j ] *lB2*exp ( -f abs ( z [ j ] +z [ k] -epsilon) *kFT [ i ] ) /kFT [ i ] * image; 


continue; } 
continue; } 


for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

uRegHT [ i ] [ j ] [ k]  =  uHT [ i ] [ j ] [ k] ; 


(fabs (z [ j ] -z [k] )  <  aReg  and 

(fabs  (z  [  j ] - 

■0 . 5*epsilon)  + 

fabs (z [k] -0 . 5*epsilon) )  >=  aReg)  { 

if 

(z 

[j: 

]<0.0  and  z[k]<0.0) 

[uRegHT [i] 

[j] [k] 

=  2*pi* 

qpv [ j ] *qpv [ j ] *lBl*exp (-aReg* kFT [i] ) 

/kFT [i] 

+ 

2*pi* 

qpv  [ 

I *qpv[ j ] 

*lBl*exp (-fabs (z 

[j]+z[k]-epsilon) *kFT [i] ] 

) / kFT [ i ] * image ; } 

if 

(z 

[j: 

] >=0 . 0  and  z[k]>=0.0) 

[uRegHT [i] 

[j] [k] 

=  2*pi* 

qpv [ j ] *qpv [ j ] *lB2*exp (-aReg* kFT [i] ) 

/kFT [i] 

+ 

2*pi* 

qpv  [ 

I *qpv[ j ] 

*lB2*exp (-fabs (z 

[j]+z[k]-epsilon) *kFT [i] ] 

) / kFT [ i ] * image ; } 

(fabs (z [ j ] -z [k] )  <  aReg  and 

(fabs  (z  [  j ] - 

■0 . 5*epsilon)  + 

fabs (z [k] -0 . 5*epsilon) )  <  aReg)  { 

if 

(z 

[j: 

]<0.0  and  z[k]<0.0) 

[uRegHT [i] 

[j] [k] 

=  2*pi* 

qpv [ j ] *qpv [ j ] *lBl*exp (-aReg* kFT [i] ) 

/kFT [i] 

+ 

2*pi* 

qpv  [ 

I *qpv[ j ] 

*lBl*exp (-aReg* kFT [i] ) /kFT [i] * image; } 

if 

(z 

[j: 

] >=0 . 0  and  z[k]>=0.0) 

[uRegHT [i] 

[j] [k] 

=  2*pi* 

qpv [ j ] *qpv [ j ] *lB2*exp (-aReg* kFT [i] ) 

/kFT [i] 

+ 

2*pi* 

qpv  [ 

I *qpv[ j ] 

*lB2*exp (-aReg* kFT [i] ) /kFT [i] * image; } 

if 

(z 

[j: 

]<0.0  and  z[k]>=0.0) 

[uRegHT [i] 

[j] [k] 

=  2*pi* 

qpv [ j ] *qpv [k] *screen*exp (-aReg*kFT 

[i] ) /kFT 

[i: 

1 ; } 

if 

(z 

[j: 

] >=0 . 0  and  z[k]<0.0) 

[uRegHT [i] 

[j] [k] 

=  2*pi* 

qpv [ j ] *qpv [k] *screen*exp (-aReg*kFT 

[i] ) /kFT 

[i] 

1 ; } 

} 

}  }  } 


for  (i=0; i<Nr; i++) { 


for  ( j=0; j<Nz; j++) { 


for  (k=0; k<Nz; k++) { 


uRegHT [i] [ j 
if  (fabs (z [ 
if  (z[j]< 
if  (z[j]> 

} 

if  (fabs (z [ j ] -z [k] ) 


+Nz ] [k]  =  uHT [i] [j+Nz] [k]; 

j]-z[k])  <  aReg  and  (fabs (z [ j ] -0 . 5*epsilon) 
0.0  and  z[k]<0.0)  {uRegHT[i] [j+Nz] [k]  = 
=0.0  and  z[k]>=0.0)  [uRegHT[i] [j+Nz] [k]  = 


+  f abs ( z [ k] -0 . 5*epsilon) )  >= 

■2*pi*  qpv  [  j  ]  *qmv  [  j  ]  *lBl*exp  (- 
■2*pi*  qpv  [  j  ]  *qmv  [  j  ]  *lB2*exp  (- 


aReg)  { 

aReg*kFT [i] ) /kFT [i] 
aReg*kFT [i] ) /kFT [i] 


<  aReg  and  (fabs (z [ j ] -0 . 5*epsilon)  + 


if 

(z 

[j: 

A 

o 

o 

and  z [ k] <0 . 0 ) 

[uRegHT 

[i] 

[j+Nz] 

[k] 

=  -2*pi 

if 

(z 

[j: 

]>=0. 

0  and  z [ k] >=0 . 0 ) 

[uRegHT 

[i] 

[j+Nz] 

[k] 

=  -2*pi 

if 

(z 

[j: 

]<0.0 

and  z [ k] >=0 . 0 ) 

[uRegHT 

[i] 

[j+Nz] 

[k] 

=  -2*pi 

if 

(z 

[j: 

]>=0. 

0  and  z [ k] <0 . 0 ) 

[uRegHT 

[i] 

[j+Nz] [k] 

=  -2*pi 

f abs ( z [ k] -0 . 5*epsilon) )  <  aReg)  { 

*  qpv [ j ] *qmv [ j ] *lBl*exp (-aReg* kFT [i] ) /kFT [i]  - 

*  qpv [ j ] *qmv [ j ] *lB2*exp (-aReg* kFT [i] ) /kFT [i]  ■ 

*  qpv [ j ] *qmv [k] * screen* exp (-aReg* kFT [i] ) /kFT [: 

*  crpv  T  i  ]  *crmv  fk]  *screen*exp  (-aRecr*kFT  fil  )  /kFT  \ : 


2*pi* 

qpv  [ 

:j] 

*qmv [ j ] *lBl*exp 

2*pi* 

qpv  [ 

:j] 

*qmv [ j ] *lB2*exp 

2*pi* 

qpv  [ 

:j] 

*qmv [ j ] *lBl*exp 

2*pi* 

qpv  [ 

:j] 

*qmv [ j ] *lB2*exp 

; } 

(-fabs (z [ j ] +z [k] -epsilon) *kFT [i] ) /kFT [i] *image; } 
(-fabs (z [ j ] +z [k] -epsilon) *kFT [i] ) /kFT [i] *image; } 


(-aReg* kFT [i] ) /kFT [i] * image; } 
(-aReg* kFT [i] ) /kFT [i] * image; } 


} 


uRegHT [i] [j] [k+Nz]  =  uRegHT [i] [j+Nz] [k]  ; 

}  }  } 


for  (i=0; i<Nr; i++)  {  for  ( j=0; j<Nz; j++)  { 
uRegHT[i] [j+Nz] [k+Nz]  =  uHT[i] [j+Nz] [k+Nz] 


for  (k=0; k<Nz; k++) { 


if  (fabs (z [ j ] -z [k] )  <  aReg  and 
if  (z[j]<0.0  and  z[k]<0.0) 
if  (z[j]>=0.0  and  z[k]>=0.0) 

} 


(fabs (z [j ] -0.5* epsilon) 
[uRegHT [i] [j+Nz] [k+Nz] 
[uRegHT [i] [j+Nz] [k+Nz] 


+  f abs ( z [ k] -0 . 5*epsilon) )  >=  aReg)  { 

=  2*pi*  qmv [ j ] *qmv [ j ] *lBl*exp (-aReg*kFT [i] ) /kFT [i]  + 
=  2*pi*  qmv [ j ] *qmv [ j ] *lB2*exp (-aReg*kFT [i] ) /kFT [i]  + 


2*pi* 

2*pi* 


if  (fabs (z [ j ] -z [k] )  <  aReg  and  ( f abs ( z [ j ] -0 . 5*epsilon)  +  f abs ( z [ k] -0 . 5*epsilon) )  <  aReg)  { 


if 

(z 

[j: 

]<0.0  and  z[k]<0.0) 

[uRegHT 

[i] 

[j+Nz] 

[ k+Nz ] 

=  2*pi* 

qmv  [  j  ]  *  qmv  [  j  ] 

*lBl*exp (-aReg*kFT [i] ) 

/kFT [i] 

+  2*pi 

if 

(z 

[j: 

] >=0 . 0  and  z[k]>=0.0) 

[uRegHT 

[i] 

[j+Nz] 

[ k+Nz ] 

=  2*pi* 

qmv [ j ] *  qmv [ j ] 

*lB2*exp (-aReg*kFT [i] ) 

/kFT [i] 

+  2  *pi 

if 

(z 

[j: 

]<0.0  and  z[k]>=0.0) 

[uRegHT 

[i] 

[j+Nz] 

[ k+Nz ] 

=  2*pi* 

qmv [ j ] *  qmv [ k ] 

*screen*exp (-aReg*kFT 

[i] ) /kFT  [ 

i] ; } 

if 

(z 

[j: 

] >=0 . 0  and  z[k]<0.0) 

[uRegHT 

[i] 

[j+Nz] 

[ k+Nz ] 

=  2*pi* 

qmv [ j ] *  qmv [ k ] 

*screen*exp (-aReg*kFT 

[i] ) /kFT  [ 

i] ; } 

} 

}  }  } 


qmv [ j ] *qmv [ j ] *lBl*exp (-fabs (z [j ] +z [k] -epsilon) *kFT [ i ] ) /kFT [ i ] * image; } 
qmv [ j ] *qmv [ j ] *1B2  *exp ( -f abs ( z [ j ] +z [ k] -epsilon) *kFT [ i ] ) /kFT [ i ] * image; } 


qmv [ j ] *qmv [ j ] *lBl*exp (-aReg* kFT [i] ) /kFT [i] * image; } 
qmv [ j ] *qmv [ j ] *lB2*exp (-aReg* kFT [i] ) /kFT [i] * image; } 


} 

void  CoulombFluid : : EvaluateReservoirMuEx  (int  medium)  { 


cout  <<  "MSA  is  used  to  solve  OZ  for  the  homogeneous  system"  <<  endl; 


double  I,  cl,  Ap,  Am,  Apm,  IB,  dr; 

double  *dcpp, *tcpp, *hp, *dcpm, *tcpm, *hpm, *dcmm, *tcmm, *hm, *cnewp, *cnewm, *cnewpm, *Reg, *s , *sl , apm,  varl ,  var2  ,  var3 ,  volp,  volm,  volpm; 
double  error, tolerance=pow (10 . 0, -5 . 0) , alpha2  =  0 . 03, turn=l . 0,  alphaMem; 
int  iter=0 , itermax  =  30000,  N; 


N  =  Nb;  alphaMem  =  alpha2; 


dcpp  =  (double*)  calloc  (N, sizeof (double) ) ; 
dcpm  =  (double*)  calloc  (N, sizeof (double) ) ; 
dcmm  =  (double*)  calloc  (N, sizeof (double) ) ; 
cnewp  =  (double*)  calloc  (N, sizeof (double) ) ; 
Reg  =  (double*)  calloc  (N, sizeof (double) ) ; 
s  =  (double*)  calloc  (N, sizeof (double) ) ;  si 


tcpp  =  (double*) 
tcpm  =  (double*) 
tcmm  =  (double*) 
cnewm  =  (double* 


calloc  (N, sizeof (double) ) ; 
calloc  (N, sizeof (double) ) ; 
calloc  (N, sizeof (double) ) ; 
calloc  (N, sizeof (double) ) 


hp  =  (double*)  calloc  (N, sizeof (double) ) ; 
hm  =  (double*)  calloc  (N, sizeof (double) ) ; 
hpm  =  (double*)  calloc  (N, sizeof (double) ) ; 

cnewpm  =  (double*)  calloc  (N, sizeof (double) ) ; 


=  (double*)  calloc  (N, sizeof (double) ) ; 


cout  <<  "Evaluating  Reservoir  MuEx  for  medium  "  <<  medium  <<  endl; 

if  (medium  ==  1)  [cl  =  csl;  I  =  max (10 . 0, 8 . 0/kappal) ;  IB  =  1B1;}  if  (medium  ==  2)  [cl  =  cs2;  I  =  max (10 . 0, 8 . 0/kappa2) ;  IB  =  1B2;} 

if  (medium  !=  1  and  medium  !=  2)  {  cout  <<  "Code  can  handle  only  2  media.  Value  of  medium  =  "  <<  medium  <<  "  is  not  defined  in  algorithm."  <<  endl;  exit(l);  } 
for  (i=0; i<N; i++)  {  s[i]  =  i*1.0/N;  sl[i]  =  s[i]*I;  } 

volp  =  pow (I, 3 . 0) *cl*2*turn;  volm  =  pow (I, 3 . 0) *cl*qp/qm*2*turn;  volpm  =  pow (I, 3 . 0) *cl*sqrt (qp/qm) *2*turn; 
apm  =  (ap  +  am)  ; 

Ap  =  qp*qp*lB/I;  Am  =  qm*qm*lB/l;  Apm  =  qp*qm*lB/I; 
for  (i=0; i<N; i++)  {  Reg[i]  =  exp (-3*s  [i] *s  [i] )  ;  } 

error  =  1.0; 

while  ((error  >  tolerance  and  iter  <  itermax)  or  (turn  <  1.0))  { 

error  =  0.0; 


NR: : sinft (tcpp,  N) 

;  for 

(i=l; i<N; i++) 

tcpp  [i]  *=  (2 . 0/N) ; 

NR: : sinft (tcmm, N) 

;  for 

(i=l; i<N; i++) 

tcmm[i]  *=  (2.0/N); 

NR: : sinft (tcpm,  N) 

;  for 

(i=l; i<N; i++) 

tcpm[i]  *=  (2.0/N); 

for  (i=l; i<N; i++) 

cnewp 

i]  =  tcpp [ i ] * 

tcmm[i]/i  +  tcpp[i]  - 

tcpm [ i ' 

*tcpm [ i 

/i; 

for  (i=l; i<N; i++) 

cnewm 

i]  =  tcpp [ i ] * 

tcmm[i]/i  +  tcmm[i]  - 

tcpm [ i ' 

*tcpm [ i 

/i; 

for  (i=l; i<N; i++)  cnewpm [i]  =  tcpm[i]; 
for  (i=l; i<N; i++)  { 

varl  =  ( 1 . 0+tcpp [ i ] /i ) * ( 1 . 0  +  tcmm[i]/i)  -  pow (tcpm [ i ] /i, 2 . 0 ) ; 
cnewp [i]  /=  varl; 

cnewm [i]  /=  varl; 

cnewpm [i]  /=  varl; 

} 

NR: : sinft (cnewp, N) ;  NR: : sinft (cnewm, N) ;  NR: : sinft (cnewpm, N) ; 
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for  (i=l;i<N; i++)  { 


cnewp[i]  =  cnewp  [ i ] /s  [ i ] /volp; 

if(s[i]*I/ap  <=  2.0)  dcpp[i]  =  alpha2 *cnewp [ i ]  +  ( 1 . 0-alpha2 ) *dcpp [ i ] ; 
cnewm[i]  =  cnewm [ i ] /s [ i ] /volm; 

if(s[i]*I/am  <=  2.0)  dcmm[i]  =  alpha2 *cnewm [ i ]  +  ( 1 . 0-alpha2 ) *dcmm [ i ] ; 

cnewpm[i]  =  cnewpm[i] /s [i] /volpm; 

if (s [i] *I/apm  <=  1.0)  dcpm[i]  =  alpha2 *cnewpm [ i ]  +  ( 1 . 0-alpha2 ) *dcpm [ i ] ; 

if  (s[i]*I/ap  >  2.0)  cnewp[i]  =  -Reg [ i ] *Ap/s [ i ] *turn; 
if  (s[i]*I/am  >  2.0)  cnewm[i]  =  -Reg [ i ] *Am/s [ i ]* turn ; 
if  (s[i]*I/apm  >  1.0)  cnewpm[i]  =  Reg [ i ] *Apm/s [ i ] *turn; 

if  (error  <  f abs (dcpp [ i ] -cnewp [ i ]) )  error  =  f abs (dcpp [ i ] -cnewp [ i ]) ; 
if  (error  <  f abs (dcpm [ i ] -cnewpm [ i ] ) )  error  =  fabs (dcpm[i] -cnewpm[i] ) ; 

} 


for  (i=l;i<N; i++)  { 

if(s[i]*I/ap  >  2.0)  {  dcpp[i]  =  ( 1 . 0-alpha2 ) *dcpp [ i ]  +  alpha2 *cnewp [ i ] ;  } 

cnewp [i]  =  dcpp [i] *s [i] *volp; 

if (s [i] *I/am  >  2.0)  {  dcmm[i]  =  ( 1 . 0-alpha2 ) *dcmm [ i ]  +  alpha2 *cnewm [ i ] ;  } 

cnewm [i]  =  dcmm[i] *s [i] *volm; 

if (s [i] *I/apm  >  1.0)  {  dcpm[i]  =  (1 . 0-alpha2) *dcpm[i]  +  alpha2*cnewpm[i] ;  } 

cnewpm [i]  =  dcpmfi] *s [i] *volpm; 

} 


NR: : sinft (cnewp, N) ; 

for 

(i=l; i<N; i++) 

{cnewp [i]  *= 

(2.0/N)  ;  };/. 

wp[i]  - 

NR: : sinft (cnewm,  N)  ; 

for 

(i=l; i<N; i++) 

{ cnewm [i]  *= 

(2.0/N)  ;  };/. 

wm  [i]  - 

NR: : sinft (cnewpm, N) ; 

for 

(i=l; i<N; i++) 

{ cnewpm [ i ] *= 

(2.0/N)  ;  };/, 

for  (i=l; i<N; i++)  tcpp[i]  =  -cnewp [ i ] *cnewm [ i ] /i  +  cnewp [i]  +  cnewpmfi] *cnewpm[i] /i; 

for  (i=l; i<N; i++)  tcmm[i]  =  -cnewp [ i ] *cnewm [ i ] /i  +  cnewm[i]  +  cnewpmfi] *cnewpm[i] /i; 

for  (i=l; i<N; i++)  tcpm[i]  =  cnewpm [i]; 

for  (i=l;i<N;i++)  { 

var2  =  ( 1 . 0-cnewp [i] /i) * (1 . 0  -  cnewm[i]/i)  -  pow (cnewpmfi] /i, 2 . 0) ; 

tcpp[i]  /=  var2;  tcmm[i]  /=  var2;  tcpm[i]  /=  var2; 

} 

NR: : sinft (tcpp, N) ;  NR: : sinft (tcmm, N) ;  NR: : sinft (tcpm, N) ; 
for  (i=l; i<N; i++)  { 

cnewp [i]  =  tcpp [i] /s [i] /volp;  varl  =  cnewp [i]; 

cnewm [i]  =  tcmm [i] /s [i] /volm;  var2  =  cnewm [i]; 

cnewpm [i]  =  tcpm [i] /s [i] /volpm;  var3  =  cnewpmfi]; 

if  (s[i]*I/ap  <=  2.0)  {cnewp [i]  =  -1.0;}  if  (s[i]*I/am  <=  2.0)  { cnewm [i]  =  -1.0;}  if  (s[i]*I/apm  <=  1.0) 

if  (error  <  fabs (varl-cnewp [i] ) )  error  =  f abs (varl-cnewp [ i ] )  ; 

if  (error  <  fabs (var2-cnewm[i] ) )  error  =  fabs (var2-cnewm[i] )  ; 

if  (error  <  f abs (var3-cnewpm [ i ] ) )  error  =  f abs (var3-cnewpm [ i ] ) ; 

hp[i]  =  ( 1 . 0-alpha2 ) *varl  +  alpha2 *cnewp [ i ] ;  tcpp[i]  =  hp [i] *s [i] *volp; 

hm[i]  =  ( 1 . 0-alpha2 ) *var2  +  alpha2 *cnewm [ i ] ;  tcmmfi]  =  hmfi] *s [i] *volm; 

hpmfi]  =  ( 1 . 0-alpha2 ) *var3  +  alpha2 *cnewpm [ i ] ;  tcpmfi]  =  hpmfi] *s [i] *volpm; 

} 

hp [ 0 ] =hm [ 0 ] =hpm [  0 ] =- 1 . 0 ; 

if  (iter%1000  ==  0)  cout  <<  "error  =  "  <<  error  <<  "  at  iteration  "  <<  iter  <<  endl; 
if  (iter%1000  ==  0)  {  RecordBulkCorrelationFunctions ( si , hp, hm, hpm, N, medium) ;  } 

if  (turn  <  1.0)  {volp/=turn;volm/=turn;volpm/=turn;  turn  +=  5e-4;  volp*=turn;  volm*=turn;  volpm*=turn; } 
iter++; 

} 

cout  <<  "error  =  "  <<  error  <<  "  at  iteration  "  <<  iter  <<  endl; 

RecordBulkCorrelationFunctions ( si , hp, hm, hpm, N, medium) ; 

if  (i  ==  itermax)  cout  <<  "Maximum  number  of  iterations  reached."  <<  endl; 

if  (medium  ==  1)  {  muExlp  =  0.0;  muExlm  =  0.0; 

for  (i=l; i<N/2; i++)  { 

dr  =  4 . 0*pi* (pow (s [i] *1, 3 . 0) -pow (s [ i  —  1 ] *1, 3 . 0) ) /3 . 0; 

if  (s[i]*I/ap  >  0.0)  muExlp  +=  cl*  (0 . 5*hp  [i]  *  (hp  [i] -dcpp  [i]  ) -dcpp  [i]  )  *  dr; 
if  (s[i]*I/apm  >  0.0)  muExlp  +=  cl*qp/qm* (0 . 5*hpm[i] * (hpmfi] -dcpmfi] ) -dcpmfi] ) *  dr; 
if  (s[i]*I/am  >  0.0)  muExlm  +=  cl*qp/qm* (0 . 5*hm[i] * (hm[i] -dcmmfi] ) -dcmmfi] ) *  dr; 
if  (s[i]*I/apm  >  0.0)  muExlm  +=  cl *( 0 . 5*hpm [ i ]* (hpm [ i ] -dcpm [ i ]) -dcpm [ i ]) *  dr; 

} 

cout  <<  "muEx+  =  "  <<  muExlp  <<  "  and  muEx-  =  "  <<  muExlm  <<  "  in  medium  "  <<  medium  <<  endl; 

} 

if  (medium  ==  2)  {  muEx2p  =  0.0;  muEx2m  =  0.0; 

for  (i=l; i<N/2; i++)  { 

dr  =  0 . 75*pi* (pow (s [i] *1, 3 . 0) -pow (s [ i — 1 ] *1, 3 . 0) ) ; 

if  (s[i]*I/ap  >  0.0)  muEx2p  +=  0 . 5*cl* (hp [i] * (hp [i] -dcpp [i] ) -dcpp [i] ) *  dr; 
if  (s[i]*I/apm  >  0.0)  muEx2p  +=  0 . 5*cl *qp/qm* (hpm [ i ]* (hpm [ i ] -dcpm [ i ]) -dcpm [ i] ) *  dr; 
if  (s[i]*I/am  >  0.0)  muEx2m  +=  0 . 5*cl *qp/qm* (hm [ i ] * (hm [ i ] -dcmm [ i ] ) -dcmm [ i ] ) *  dr; 
if  (s[i]*I/apm  >  0.0)  muEx2m  +=  0 . 5*cl* (hpmfi] * (hpmfi] -dcpmfi] ) -dcpmfi] ) *  dr; 

} 

cout  <<  "muEx+  =  "  <<  muEx2p  <<  "  and  muEx-  =  "  <<  muEx2m  <<  "  in  medium  "  <<  medium  <<  endl; 

} 


InitiateCorrelationFunctions2Walls (hp, hm, hpm, dcpp, dcmm, dcpm, si , N, medium) ; 

cout  <<  "Correlation  functions  are  initialized  for  a  single  electrolyte  solution  between  2  walls."  <<  endl; 
ResetQs ( ) ; 


{ cnewpm [i]  =  -1.0;} 
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gsl  matrix  *  m  =  gsl  matrix  alloc  (2,  2); 

gsl  permutation  *  p  =  gsl  permutation  alloc  (2); 

int  sign [ 1 ] ; 

double  vol,  det,  entropy,  Ftot,  dist; 

double  muEx; 

hFT. assign  ( 0 . 0 , Nr , 3*Nz , 3*Nz ) ; 
vol  =  pow (r [Nr-1] , 3 . 0) ; 

mu. assign (0.0,3*Nz,3*Nz) ; 


for  (i=l; i<Nr; i++)  { 

dist  =  r [ i ] ; 

if  (dist  <  2*ap)  continue; 
if  (dist  >  4.0/kappal)  continue; 


muEx 

-=  4*pi*r i 

[i] 

*r  [i] 

* (r [i] 

-  r  | 

[  i  —  1  ] 

muEx 

+=  4*pi*r| 

[i] 

*r  [i] 

* (r [i] 

-  r  | 

[i-1] 

muEx 

+=  4*pi*r| 

[i] 

*r  [i] 

* (r [i] 

-  r  | 

[  i  —  1  ] 

muEx 

+=  4*pi*r| 

[i] 

*r  [i] 

* (r [i] 

-  r  | 

[i-1] 

*  ( 0 . 5*hp [ i ] *hp  [ i ]  +  hp[i]  +  0 . 5*hpm[i] *hpm[i]  +  hpm[i]  +  0 . 5*hm [ i ] *hm [ i ]  +  hm[i]); 

*  (  (hp[i]+1.0)*log(hp[i]+1.0+le-33)  +  (hp [i] +1 . 0) * (Reg [i] *Ap/s [i] )  ); 

*  (  (hpm[i] +1 . 0) *log (hpm[i] +1 . 0+le-33)  +  (hpm [ i ] +1 . 0 ) * ( -Reg [ i] *Apm/s [ i ] )  ); 

*  (  (hm[i] +1 . 0) *log (hm[i] +1 . 0+le-33)  +  (hm [i] +1 . 0) * (Reg [i] *Am/s [i] )  ); 


for  ( j=0; j<3*Nz; j++)  { 

for  (k=0; k<3*Nz; k++)  { 

Fref  +=  0 . 5*cl*cl*muEx; 

} 


for 

(i=0; i<Nr; i++) 

{  dc [ i ] 

=  hp [i] *s [i] *vol; 

} 

NR: 

: sinft (dc, Nr) ; 

for 

(i=l; i<Nr; i++) 

dc 

[i]  *  = 

(2.0/Nr) ; 

for 

(i=l; i<Nr; i++) 

{  hFT 

[i] 

[0] 

[0] 

=  dc [ i ] / i ;  } 

for 

(i=0; i<Nr; i++) 

{  dc  [  i ] 

=  hpm[i] *s [i] *vol; 

} 

NR: 

: sinft (dc, Nr) ; 

for 

(i=l; i<Nr; i++) 

dc 

[i]  *  = 

(2.0/Nr) ; 

for 

(i=l; i<Nr; i++) 

{  hFT 

[i] 

[1] 

[0] 

=  hFT  [i]  [0]  [1 

for 

(i=0; i<Nr; i++) 

{  dc [ i ] 

=  hm[i] *s [i] *vol; 

} 

NR: 

: sinft (dc, Nr)  ; 

for 

(i=l; i<Nr; i++) 

dc 

[i]  *  = 

(2.0/Nr) ; 

for 

(i=l; i<Nr; i++) 

{  hFT 

[i] 

[1] 

[1] 

=  dc [ i ] / i ;  } 

for  (i=l; i<Nr; i++)  { 

for  ( j=0; j<2 ; j ++) {  for  (k=0; k<2; k++) { 

gsl_matrix_set  (m,  j,  k,  delta[j][k]  +  hFT [i] [ j ] [k] *n [k] ) ; 

}  } 

gsl  linalg  LU  decomp (m, p, sign) ; 

det  =  gsl  linalg  LU  lndet  (m) ; 

for  ( j  =0 ; j <2 ; j  ++)  det  -=  cl*hFT [i]  [ j ]  [j ] ; 


dc [ i ] / i ;  } 


Fref  -=  0 . 5/vol*4*pi*i*i*det  *0.25; 

} 


entropy  =  cl; 

Ftot  =  (Fref+entropy) /cl ; 

free(s);  gsl  matrix  free  (m) ;  gsl  permutation  free  (p) ; 


ofstream  datafile; 
char  f ilename [ 50 ] ; 

strcpy (filename, "Data/") ;  strcat (filename,  project);  strcat ( filename, "_Info . dat" ) ; 
datafile . open (filename, ios : : app) ; 

datafile  <<  " \n\tReservoir  excess  chemical  potential  muEx+  =  "  <<  muExlp  <<  "  kBT,  and  muEx-  =  "  <<  muExlm  <<  "  kBT  in  medium  "  <<  medium  <<  endl; 
datafile . close  ( ) ; 

free  (dcpp)  ;  free  (cnewp)  ;  free  (tcpp)  ;  free  (hp)  ;  free  (dcpm)  ;  free  (cnewm)  ;  free  (tcpm)  ;  free  (hpm);  free  (Reg)  ;  free  (dcmm)  ;  free  (cnewpm)  ;  free  (tcmm)  ;  free  (hm)  ; 


void  CoulombFluid : : 0Z_HNC ( )  { 

double  I  =  r[Nr-l],  alpha2  =  alpha; 
gsl  dht  *  t  =  gsl  dht  new(Nr,  0.0,  I); 

gsl  matrix  *  m  =  gsl  matrix  alloc  (2*Nz,  2*Nz),*  m2  =  gsl  matrix  alloc  (2*Nz,  2*Nz); 

gsl  vector  *  hvec  =  gsl  vector  alloc  (2*Nz) ,  *  cvec  =  gsl  vector  alloc  (2*Nz) ; 

gsl  permutation  *  p  =  gsl  permutation  alloc  (2*Nz) ; 

int  sign[l],  it=0; 

char  answer; 

alpha2  =  0.001; 


errmax  =  le9; 

while  (errmax  >  tolerance*le2 )  { 

errmax  =  0.0;  it++; 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz; j++) {  for  ( k=0 ; k<Nz ; k++) { 

if  (r[i]*r[i]  +  pow (z [ j ] -z [k] , 2 . 0)  <  4*ap*ap)  continue; 
newc [ i ] [ j ] [ k]  =  -  u[i] [ j ] [k] +h[i] [j ] [k]  -  log (h [ i ] [ j ] [ k]  +  1.0); 
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} } } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<Nz ; j ++) {  for  (k=Nz; k<2*Nz; k++) { 

if  (r[i]*r[i]  +  pow (z [ j ] -z [k-Nz] , 2 . 0)  <  pow (ap+am, 2 . 0) )  continue; 
newc [i] [ j ] [k]  =  -  u [i] [ j ] [k] +h[i] [j ] [k]  -  log (h [ i ] [ j ] [ k]  +  1.0); 
newc[i] [j+Nz] [k-Nz]  =  newc [i] [j] [ k] ; 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=Nz ; j<2*Nz ; j ++) {  for  (k=Nz; k<2*Nz; k++) { 

if  (r[i]*r[i]  +  pow ( z [ j -Nz] -z [k-Nz] , 2 . 0)  <  4* am* am)  continue; 
newc [i] [ j ] [k]  =  -  u[i][j][k]+  h[i][j][k]  -  log (h [i] [ j ] [k]  +  1.0); 

}  }  } 

for  (i=0; i<Nr; i++) {  for  ( j=0; j<2*Nz; j++) {  for  (k=0; k<2*Nz; k++) { 

err  =  c  [i]  [  j  ]  [k] -newc  [i]  [  j  ]  [k]  ; 
if  (err  !=  err)  { 

cout  <<  "singularity  detected  at  (r,z,z')  =  ("  <<  r[i]  <<  <<  z [ j ]  <<  <<  z[k]  <<  ")"  <<  endl; 

if  (lOverrule)  {  cout  <<  "Press  y  to  continue"  <<  endl;  cin  >>  answer;  if  (answer  ==  ' y ' )  Overrule  =  true;} 
if  (lOverrule)  exit(l); 

} 

if  (fabs(err)  >  errmax)  errmax  =  fabs (err) ; 

c[i] [j] [k]  -=  alpha2*err;  //  alpha  =1.0  means  complete  replacement  with  new  data;  0  means  no  replacement  (do 

newc  [i]  [  j  ]  [k]  =  c  [ i ]  [  j  ]  [ k ]  ; 

}  }  } 

for  ( j=0; j<2*Nz; j++) {  for  (k=0; k<2*Nz; k++) { 

for  (i=0; i<Nr; i++)  {  dc[i]  =  newc [ i ] [ j ] [ k] ;  } 

gsl_dht_apply (t,  dc,  dcHT) ;  for  (i=0; i<Nr; i++)  dcHT[i]  *=  gsl_sf_bessel_zero_J0 (Nr+1) /I/I; 
for  (i=0; i<Nr; i++)  {  newc [ i ] [ j ] [ k]  =  dcHT[i];}  -uHT [i] [j ] [k] ;  / 

}  } 


for  (i=0; i<Nr; i++)  { 

for  ( j=0 ; j<2*Nz; j ++) {  for  (k=0; k<2*Nz; k++) {  gsl_matrix_set  (m,  j,  k,  delta[j][k]  +  newc [ i ] [ j ] [ k] *n [ k] ) ; } } , 

gsl  linalg  LU  decomp (m, p, sign) ; 
for  (k=0; k<2*Nz; k++) { 

for  ( j=0; j<2*Nz; j++)  gsl_vector_set  (cvec, j , newc [i] [j ] [k] ) ; 
gsl  linalg  LU  solve (m, p, cvec, hvec) ; 

for  ( j=0; j<2*Nz; j++)  newh[i] [j] [k]  =  gsl_vector_get  (hvec,j); 

} 

} 

for  ( j=0; j<2*Nz; j++) {  for  (k=0; k<2*Nz; k++) { 

for  ( i=0 ; i<Nr ; i++)  tcHT[i]  =  newh [ i ] [ j ] [ k] ; 

gsl_dht_apply (t,  tcHT,  tc) ;  for  (i=0; i<Nr; i++)  tc[i]  *=  gsl_sf_bessel_zero_J0 (Nr+1) /I/I; 
for  ( i=0 ; i<Nr ; i++)  newh [ i ] [ j ] [ k]  =  tc[i]; 

}  } 

for  (i=0; i<Nr; i++)  { 

for  ( j  =0 ; j<Nz; j++)  {  for  (k=0; k<Nz; k++)  { 

if  (r[i]*r[i]  +  pow (z [ j ] -z [k] , 2 . 0)  <  4*ap*ap)  newh[i] [j] [k]  =  -  1.0; 

}  } 

for  ( j  =0 ; j<Nz; j++)  {  for  (k=Nz; k<2*Nz; k++)  { 

if  (r [i] *r [i]  +  pow (z[j]-z[k],2.0)  <  pow (ap+am, 2.0))  newh [i]  [ j ]  [k]  =  -  1.0;  newh [i]  [ j+Nz]  [k-Nz]  =  newh [i]  [ j ]  [k] ; 

}  } 

for  ( j=Nz; j<2*Nz; j++) {  for  (k=Nz; k<2*Nz; k++) { 

if  (r[i]*r[i]  +  pow (z [ j ] -z [k] , 2 . 0)  <  4*am*am)  newh [ i ] [ j ] [ k]  =  -  1.0; 

}  } 

for  (j=0; j<2*Nz; j++) {  for  (k=0; k<2*Nz; k++) { 

err  =  h [i] [ j ] [k] -newh [i] [ j ] [k] ; 
if  (fabs (err)  >  errmax)  errmax  =  fabs (err) ; 

h[i] [j] [k]  -=  alpha2*err;  //  alpha  =1.0  means  complete  replacement  with  new  data;  0  means  no  correction 

}  } 


for  ( j=0; j<2*Nz; j++) {  for  (k=0; k<2*Nz; k++) { 

for  (i=0; i<Nr; i++)  tc[i]  =  h[i] [j] [k]; 

gsl_dht_apply (t,  tc,  tcHT) ;  for  (i=0; i<Nr; i++)  tcHT[i]  *=  gsl_sf_bessel_zero_J0 (Nr+1) /I/I; 
for  (i=0; i<Nr; i++)  newh [ i ] [ j ] [ k]  =  tcHT[i]; 

}  } 

for  (i=0; i<Nr; i++)  { 

for  ( j=0 ; j<2*Nz ; j ++) {  for  (k=0; k<2*Nz; k++) {  gsl_matrix_set  (m,  j,  k,  n [ k] *delta [ j ] [ k]  +  n [ j ] *newh [i] [ j ] [k] *n [k] ) ;  }} 

gsl  linalg  LU  decomp (m, p, sign) ; 
for  (k=0; k<2*Nz; k++) { 

for  ( j=0; j<2*Nz; j++)  gsl_vector_set  (cvec, j , delta [j ] [k] ) ; 
gsl  linalg  LU  solve (m, p, cvec, hvec) ; 

for  ( j=0; j<2*Nz; j++)  gsl_matrix_set (m2 , j , k, gsl_vector_get  (hvec,j)); 

} 

for  (k=0; k<2*Nz; k++) { 
for  ( j=0; j<2*Nz; j++)  { 

newc [i] [ j ] [k]  =  delta [ j ][ k] /n [ k]  -  gsl_matrix_get (m2 , j , k) ; 

}  } 


for  ( j=0; j<2*Nz; j++) {  for  (k=0; k<2*Nz; k++) { 

for  (i=0; i<Nr; i++)  dcHT[i]  =  newc [ i ] [ j ] [ k] ; 

gsl_dht_apply (t,  dcHT,  dc) ;  for  (i=0; i<Nr; i++)  dc[i]  *=  gsl_sf_bessel_zero_J0 (Nr+1) /I/I; 
for  (i=0; i<Nr; i++)  newc [ i ] [ j ] [ k]  =  dc[i]; 

}  } 

cout  <<  "Iteration  "  <<  it  <<  "  Maximum  error  "  <<  errmax  <<  endl; 
if  (it%l  ==  0)  RecordCorrelationFunctions ( ) ; 

} 

gsl_matrix_f ree  (m) ;  gsl_vector_f ree  (hvec) ;  gsl_vector_f ree  (cvec) ;  gsl_dht_free  (t) ;  gsl_permutation_f ree  (p) ; 


void  CoulombFluid : : InitialCorrelationFunctions ( )  { 

for  ( j  =0 ; j<2*Nz; j++)  {  for  (k=0; k<2*Nz; k++)  {  for  (i=0; i<Nr; i++)  { 

hlnit [ i ] [j] [k]  =  h[i] [j] [k] ; 
clnit [i] [ j ] [k]  =  c [ i ] [ j ] [ k ] ; 

}  }  } 

for  ( j=0; j<Nz; j++)  { 
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cplnit [ j ]  =  cp [ j ] ; 
cmlnit[j]  =  cm[j]; 
n [ j  ]  =  cp [ j ] *dz [ j ] ; 

} 

for  ( j=Nz ; j<2*Nz ; j ++)  {  n[j]  =  cm [ j -Nz ] *dz [ j -Nz ] ;  } 


void  CoulombFluid : : SetCorrelationFunctions  ( )  { 

for  ( j=0; j<2*Nz; j++)  {  for  (k=0; k<2*Nz; k++)  {  for  ( i=0 ; i<Nr ; i++)  { 
h[i] [j] [k]  =  hlnit [i] [j] [k] ; 
c[i] [j] [k]  =  clnit [i] [j] [k] ; 

}  }  } 

for  ( j  =0 ; j<Nz; j++)  { 

cp [ j ]  =  cplnit [j ] ; 
cm[j]  =  cmlnit[j]; 
n [ j  ]  =  cp [ j ] *dz [ j ] ; 

} 

for  ( j=Nz ; j<2*Nz ; j ++)  {  n[j]  =  cm [ j -Nz ] *dz [ j -Nz ] ;  } 


void  CoulombFluid :: FinalCorrelationFunctions  ( )  { 

for  ( j  =0 ; j<2*Nz; j++)  {  for  (k=0; k<2*Nz; k++)  {  for  (i=0; i<Nr; i++)  { 

hFin [i] [j] [k]  =  h[i] [j] [k] ; 
cFin [i] [j] [k]  =  c[i] [j] [k] ; 

}  }  } 

for  ( j  =0 ; j<Nz; j++)  { 

cpFin [ j ]  =  cp [ j ] ; 
cmFin [ j ]  =  cm [ j ] ; 
n [ j  ]  =  cp [ j ] *dz [ j ] ; 

} 

for  ( j=Nz ; j<2*Nz ; j ++)  {  n[j]  =  cm [ j -Nz ] *dz [ j -Nz ] ;  } 

alpha0[l]  =  alpha; 
errmaxO=errmax; 


void  CoulombFluid :: GetCorrelationFunctions ( )  { 

for  ( j  =0 ; j<2*Nz; j++)  {  for  (k=0; k<2*Nz; k++)  {  for  (i=0; i<Nr; i++)  { 

h[i] [j] [k]  =  hFin [i] [j] [k] ; 
c [i]  [j]  [k]  =  cFin  [  i ]  [j]  [k]  ; 

}  }  } 

for  ( j=0; j<Nz; j++)  { 

cp [ j ]  =  cpFin [ j ] ; 
cm [ j ]  =  cmFin [ j ] ; 
n [ j ]  =  cp [ j ] *dz [ j ] ; 

} 

for  ( j=Nz ; j<2*Nz ; j ++)  {  n[j]  =  cm [ j -Nz ] *dz [ j -Nz ] ;  } 

alphaO [ 0 ] =alpha0 [ 1 ] ; 
errmax=errmaxO ; 


} 

void  CoulombFluid :: ResetQs ( )  { 


double  d,  deltah,  deltahp; 

int  1  ; 


for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

if  (fabs (z [ j ] -z [k] )  >=  apv [ j ] +apv [ k] )  continue; 

d  =  sqrt (pow (apv [ j ] +apv [k] , 2 . 0)  -  pow (z [ j ] -z [k] , 2 . 0) ) ; 
i=0;  while  (r[i]  <  d  and  i<Nr-3)  i++;  1  =  i; 

deltah  =  h[l] [j] [k]  -  (h[l+l] [j] [k]-h[l] [j] [k])/(r[l+l]-r[l])*(r[l]-d)  +1.0; 
deltahp  =  (h[l+l] [j] [k] -h [1 ] [j] [k] ) / (r [1+1] -r [1] ) ;  ' 

for  (i=0; i<l; i++)  Qs[i]  [j]  [k]  =  deltah  +  0 .5* (r [i] *r [i]  -  d*d) *deltahp/d; 
for  (i=0; i<Nr; i++) { 

if  (r [i]  ==  0.0)  {QsHT [i] [ j ] [k]  =  Large;  continue;} 

QsHT [ i ] [ j ] [ k]  =  d* (deltah*gsl_sf_bessel_Jl (d*kFT [i] ) /kFT [i]  -  deltahp*gsl_sf_bessel_Jn (2, d*kFT [i] ) /kFT [i] /kFT [i] ) ; 

QsHT [i] [ j ] [k]  *  =  2*pi; 

} 

for  (i=0; i<l; i++)  h[i][j][k]  =  Qs [i]  [  j  ]  [k] -1 . 0; 

}  } 

for  ( j=0; j<Nz; j++) {  for  (k=Nz; k<2*Nz; k++) { 

if  (fabs (z [ j ] -z [k-Nz] )  >=  apv [ j ] +amv [ k-Nz ] )  continue; 

d  =  sqrt (pow (apv [ j ] +amv [k-Nz] , 2 . 0)  -  pow (z [ j ] -z [k-Nz] , 2 . 0) ) ; 
i=0;  while  (r[i]  <  d  and  i<Nr-3)  i++;  1  =  i; 

deltah  =  h[l] [j] [k]  -  (h[l+l] [j] [k]-h[l] [j] [k])/(r[l+l]-r[l])*(r[l]-d)  +1.0; 
deltahp  =  (h[l+l] [j] [k]-h[l] [j] [k] ) / (r [1+1] -r [1] ) ;  ' 

for  (i=0; i<l; i++)  {  Qs[i]  [j]  [k]  =  deltah  +  0 .5* (r [i] *r [i]  -  d*d) *deltahp/d;  } 

for  (i=0; i<Nr; i++) { 

if  (r [i]  ==  0.0)  [QsHT [i] [ j ] [k]  =  Large;  continue;} 

QsHT [ i ] [ j ] [ k]  =  d* (deltah*gsl_sf_bessel_Jl (d*kFT [i] ) /kFT [i]  -  deltahp*gsl_sf_bessel_Jn (2, d*kFT [i] ) /kFT [i] /kFT [i] ) ; 

QsHT [i] [ j ] [k]  *  =  2*pi; 

} 

for  (i=0; i<l; i++)  h[i][j][k]  =  Qs [i] [ j ] [k] -1.0; 

}  } 

for  ( j=Nz; j<2*Nz; j++) {  for  (k=0; k<Nz; k++) { 

if  (fabs (z [ j-Nz] -z [k] )  >=  apv [ j -Nz ] +amv [ k] )  continue; 

d  =  sqrt (pow (apv [ j -Nz] +amv [k] , 2 . 0)  -  pow (z [ j-Nz] -z [k] , 2 . 0) ) ; 
i=0;  while  (r[i]  <  d  and  i<Nr-3)  i++;  1  =  i; 

deltah  =  h[l] [j] [k]  -  (h[l+l] [j] [k]-h[l] [j] [k])/(r[l+l]-r[l])*(r[l]-d)  +1.0; 

deltahp  =  (h[l  +  l]  [j]  [k] -h [1 ]  [j]  [k] ) / (r [1+1] -r [1] ) ; //  (  (h [1+2] [j ] [k] -h [1+1] [j ] [k] ) / (r [1+2] -r  [1+1] )  (h [1+1] [j ]  [k] 
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for  (i=0; i<l; i++)  {  Qs[i]  [j]  [k]  =  deltah  +  0 . 5* (r [i] *r [i]  -  d*d) *deltahp/d;  } 

for  (i=0; i<Nr; i++) { 

if  ( r [ i ]  ==  0.0)  {QsHT [i] [ j ] [k]  =  Large;  continue;} 

QsHT [ i ] [ j ] [ k]  =  d* (deltah*gsl_sf_bessel_Jl (d*kFT [i] ) /kFT [i]  -  deltahp*gsl_sf_bessel_Jn (2, d*kFT [i] ) /kFT [i] /kFT [i] ) ; 

QsHT [i] [ j ] [k]  *  =  2*pi; 

} 

for  (i=0; i<l; i++)  h[i][j][k]  =  Qs [ i ] [ j ] [ k] -1 . 0 ; 

}  } 

for  ( j=Nz ; j<2*Nz ; j ++) {  for  (k=Nz; k<2*Nz; k++) { 

if  ( f abs ( z [ j -Nz ] -z [ k-Nz ] )  >=  amv [ j -Nz ] +amv [ k-Nz ] )  continue; 
d  =  sqrt (pow (amv [ j -Nz] +amv [k-Nz] , 2 . 0)  -  pow ( z [ j -Nz] -z [k-Nz] , 2 . 0) ) ; 
i=0;  while  (r[i]  <  d  and  i<Nr-3)  i++;  1  =  i; 

deltah  =  h[l] [j] [k]  -  (h [1+1] [j] [k]-h[l] [j] [k] ) / (r[l+l]-r[l] ) * (r[l]-d)  +1.0; 
deltahp  =  (h [1+1]  [ j ]  [k] -h [1]  [ j ]  [k] ) / (r [1+1] -r [1] )  ;  / 

for  (i=0; i<l; i++)  Qs[i]  [j]  [k]  =  deltah  +  0 . 5* (r [i] *r [i]  -  d*d) *deltahp/d; 
for  (i=0; i<Nr; i++) { 

if  (r [i]  ==  0.0)  [QsHT [i] [ j ] [k]  =  Large;  continue;} 

QsHT [ i ] [ j ] [ k]  =  d* (deltah*gsl_sf_bessel_Jl (d*kFT [i] ) /kFT [i]  -  deltahp*gsl_sf_bessel_Jn (2, d*kFT [i] ) /kFT [i] /kFT [i] ) ; 

QsHT [i] [ j ] [k]  *  =  2*pi; 

} 

for  ( 1=0 ; i<l; i++)  h[i][j][k]  =  Qs [i] [ j ] [k] -1.0; 

}  } 


for  ( j=0; j<2*Nz; j++) {  for  (k=0; k<2*Nz; k++) { 

d  =  sqrt (pow (amv [ j %Nz] +amv [k%Nz] , 2 . 0)  -  pow (z [ j%Nz] -z [k%Nz] , 2 . 0) ) ; 

i=0;  while  (r[i]  <  d  and  i<Nr-3)  i++;  1  =  i; 

for  (i=0; i<Nr; i++)  Qs [i] [j] [k]  =  0.0; 

for  (i=0; i<Nr; i++)  QsHT [ i ] [ j ] [ k]  =  0.0; 

for  ( 1=0 ; i<l; i++)  h[i][j][k]  =  Qs [i] [ j ] [k] -1.0; 

}  } 


void  CoulombFluid :  :  OZ  HNC  ShortRangeO  { 

double  I  =  r[Nr-l],  alpha2  =  alpha,  alpha3  =  alpha,  b,  d; 
gsl  dht  *  t  =  gsl  dht  new(Nr,  0.0,  I); 

gsl  matrix  *  m  =  gsl  matrix  alloc  (2*Nz,  2*Nz),*  m2  =  gsl  matrix  alloc  (2*Nz,  2*Nz); 
gsl  vector  *  hvec  =  gsl  vector  alloc  (2*Nz) ,  *  cvec  =  gsl  vector  alloc  (2*Nz) ; 
gsl  permutation  *  p  =  gsl  permutation  alloc  (2*Nz) ; 
int  sign[l],  it=0; 

alpha2  =  0.5;  alpha3  =  1.0; 
b  =  gsl_sf_bessel_zero_J0 (Nr+1) /I/I; 

ResetQs ( ) ; 

RecordCorrelationFunctions () ; 

errmax  =  le9; 

while  (errmax  >  le-1)  { 

errmax  =  0.0;  it++; 


ResetQs ( ) ; 


for  ( j=0; j<2*Nz; j++)  {  for  (k=0; k<2*Nz; k++)  { 

for  (i=0; i<Nr; i++)  {  dc[i]  =  h [i] [ j ] [k] -y [i] [ j ] [k] ;  } 

gsl_dht_apply (t,  dc,  dcHT); 

for  (i=0; i<Nr; i++)  {  c[i] [j] [k]  =  dcHT[i];} 

}  } 


for  (i=0; i<Nr; i++)  { 

for  ( j  =0 ; j<2*Nz; j++)  {  for  (k=0; k<2*Nz; k++) { 

gsl_matrix_set  (m,  j,  k,  delta[j][k]*n[k]  -  n[j]*(c[i][j][k] -uRegHT [i] [j] [k] -QsHT [i] [j] [k] ) *n [k] ) ; 

}  } 

gsl  linalg  LU  decomp (m, p, sign) ; 
for  (k=0; k<2*Nz; k++) { 

for  ( j=0; j<2*Nz; j++)  gsl_vector_set  (cvec, j , delta [j ] [k] ) ; 
gsl  linalg  LU  solve (m, p, cvec, hvec) ; 

for  ( j=0; j<2*Nz; j++)  newhfi] [j] [k]  =  gsl_vector_get  (hvec,j); 

} 


for  (i=0; i<Nr; i++)  {  for  ( j=0; j<2*Nz; j++) {  for  (k=0; k<2*Nz; k++) { 

newh [i] [ j ] [k]  +=  -  delta [ j ][ k] /n [ j ]  -  c [i] [ j ] [k]  +  QsHT [ i ] [ j ] [ k] ; 

}  }  } 


for  ( j=0; j<2*Nz; j++) {  for  (k=0; k<2*Nz; k++) { 

for  (i=0; i<Nr; i++)  {  dc[i]  =  newhfi] [j ] [k] ;  } 

gsl_dht_apply (t,  dc,  dcHT) ;  for  (i=0; i<Nr; i++)  dcHT[i]  *=  b*b*(2*pi); 
for  (i=0; i<Nr; i++)  {  newh [ i ] [ j ] [ k]  =  dcHT[i];} 

}  } 

for  (i=0; i<Nr; i++)  {  for  ( j =0 ; j<2*Nz; j ++) {  for  (k=0; k<2*Nz; k++) { 

y  [i]  [ j ]  [k]  =  ( 1 . 0-alpha3) *y [i]  [j]  [k]  +  alpha3*newh [ i ]  [ j ]  [ k] ; 

}  }  } 


for  (i=0; i<Nr; i++)  {  for  ( j=0; j<2*Nz; j++) {  for  (k=0; k<2*Nz; k++) { 

newh [i] [ j ] [k]  =  exp (y [i] [ j ] [k] -u [i] [ j ] [k] +uReg [i] [ j ] [k] )  -1.0; 
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for  (k=0; k<Nz; k++) { 


}  }  } 

for  (i=0; i<Nr; i++)  {  for  ( j =0 ; j <Nz ; j ++)  { 

d  =  sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) ) ; 
if  (d  >=  2*ap)  {err  =  h [i] [ j ] [k] -newh [i] [ j ] [k] ;  if  (fabs(err)  >  errmax)  errmax  =  fabs (err) ;  h[i] [j] [k]  -=  alpha2*err; } 

if  (d  >=  2*am)  {err  =  h[i] [j+Nz] [ k+Nz ] -newh [ i ] [j+Nz] [k+Nz];  if  (fabs (err)  >  errmax)  errmax  =  fabs (err) ;  h[i] [j+Nz] [k+Nz]  -=  alpha2*err; } 

if  (d  >=  ap+am)  {err  =  h [i] [j ] [k+Nz] -newh [i] [j ] [k+Nz] ;  if  (fabs(err)  >  errmax)  errmax  =  fabs (err) ;  h [ i ] [ j ] [ k+Nz ]  -=  alpha2*err;  h[i] [j+Nz] [k]  =  h [ i ] [ j ] [ k+Nz ] 

}  }  } 

cout  <<  "Iteration  "  <<  it  <<  "  Maximum  error  "  <<  errmax  <<  endl; 
if  (it%l  ==  0  and  errmax  !=  0)  RecordCorrelationFunctions () ; 
if  (it>50)  errmax  =  0; 

}  /*  end  of  loop  here  */ 

for  (i=0; i<Nr; i++)  {  for  ( j=0; j<2*Nz; j++) {  for  (k=0; k<2*Nz; k++) { 

c[i]  [j]  [k]  =  h[i]  [j]  [k] -y [i]  [j]  [k] ; 

}  }  } 

cout  <<  setw(20)  <<  it  <<  "  iterations  after  "  <<  evaluations  <<  "  evaluations"  <<  endl; 

if  (it  ==  1  and  evaluations  >  13)  {  convergence  =  true;  cout  <<  "Convergence  to  requested  precision."  <<  endl;  } 
evaluations!!; 

if  (errmax  !=  0)  RecordCorrelationFunctions () ; 

gsl  matrix  free  (m) ;  gsl  matrix  free  (m2);  gsl  vector  free  (hvec) ;  gsl  vector  free  (cvec) ;  gsl  dht  free  (t) ;  gsl_permutation  free  (p) ; 


void  CoulombFluid : : OZ  HNC  Alternative ( )  { 

double  I  =  r[Nr-l],  alpha2  =  alpha,  alpha3  =  alpha,  alphaMem,  b,  d; 
gsl  dht  *  t  =  gsl  dht  new(Nr,  0.0,  I); 

gsl  matrix  *  m  =  gsl  matrix  alloc  (2*Nz,  2*Nz),*  m2  =  gsl  matrix  alloc  (2*Nz,  2*Nz); 

gsl  vector  *  hvec  =  gsl  vector  alloc  (2*Nz) ,  *  cvec  =  gsl  vector  alloc  (2*Nz) ; 

gsl  permutation  *  p  =  gsl  permutation  alloc  (2*Nz) ; 

int  sign[l],  it=0,  imax,  jmax,  kmax,  na; 

char  pair [3] ; 

bool  peak  =  false; 

alpha2  =  0.5;  alpha3  =  1.0;  alphaMem  =  alpha2; 
b  =  gsl_sf_bessel_zero_J0 (Nr+1) /I/I; 

ResetQs ( ) ; 

RecordCorrelationFunctions () ; 

errmax  =  le9; 

while  (errmax  >  le-3)  { 

for  (na=0;na<l;na++)  { 

errmax  =  -le9;  it++; 


for  (i=0; i<Nr; i++)  {  for  ( j=0; j<2*Nz; j++) {  for  (k=0; k<2*Nz; k++) { 

newh [i]  [ j ]  [k]  =  exp (h [ i ]  [ j ]  [ k]  -  c [ i ]  [ j ]  [ k] -u [ i ]  [ j ]  [ k] +uReg [ i ]  [ j ]  [ k]  )  -1.0; 

if  (newh [ i ]  [ j ]  [ k]  >  le2  and  sqrt (r [ i ] *r [ i ] +pow (z[j]— z[k] ,2.0) )  >  ap+am)  {  peak  =  true;  newh [ i ]  [ j ]  [ k]  =  c[i][j][k]+u[i][j][k] -uReg [i]  [j]  [k]  +  1.0;} 

}  }  } 

if  (peak)  {  cout  <<  "  ALERT  attenuation  of  new  total  correlation  function  "  <<  endl;  peak  =  false;  } 
if (BulkPhase2 )  { 


} 

for  (i=0; i<Nr; i++)  {  for  ( j=0 ; j <Nz; j ++) {  for  (k=0; k<Nz; k++) { 

d  =  sqrt  (r  [i]  *r  [i]  +  pow  (z  [  j  ] -z  [k]  ,  2 . 0)  )  ; 

if  (d  >=  apv [ j ] +apv [ k] )  {err  =  h [ i ] [ j ] [ k] -newh [ i ] [ j ] [ k] ;  if  (fabs (err)  >  errmax)  {errmax  =  fabs (err ); imax=i ; jmax=j ; kmax=k; strcpy (pair , "pp" ); }  } 
if  (d  >=  amv [ j ] +amv [ k] )  {err  =  h[i]  [j+Nz]  [ k+Nz ] -newh [ i ]  [j+Nz]  [k+Nz];  if  (fabs(err)  >  errmax)  {errmax  =  fabs  (err)  ; imax=i; jmax=j ; kmax=k; strcpy (pair, "mm") ; }  } 

if  (d  >=  apv [ j ] +amv [ k] )  {err  =  h[i] [j] [ k+Nz ] -newh [ i ] [j] [k+Nz];  if  (fabs (err)  >  errmax)  {errmax  =  fabs (err ); imax=i ; jmax=j ; kmax=k; strcpy (pair , "pm" ); }  } 

}  }  } 


alpha2  =  min (alphaMem  /  errmax, 0.5); 
cout  <<  "alpha2  =  "  <<  alpha2  <<  endl; 


for  (i=0; i<Nr; i++)  {  for  ( j=0 ; j<Nz; j ++)  {  for  (k=0; k<Nz; k++)  { 

d  =  sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) ) ; 

if  (d  >=  apv [ j ] +apv [k] )  {err  =  h [i] [ j ] [k] -newh [i] [ j ] [k] ;  h[i][j][k]  -=  alpha2*err; } 

if  (d  >=  amv [ j ] +amv [ k] )  {err  =  h[i] [j+Nz] [ k+Nz ] -newh [ i ] [j+Nz] [k+Nz];  h[i] [j+Nz] [k+Nz]  -=  alpha2*err; } 

if  (d  >=  apv [ j ] +amv [ k] )  {err  =  h [ i ] [ j ] [ k+Nz ] -newh [ i ] [ j ] [ k+Nz ] ;  h [ i ] [ j ] [ k+Nz ]  -=  alpha2*err ;  h[i][j+Nz][k]  =  h [i] [ j ] [ k+Nz ] ; } 

}  }  } 


ResetQs ( ) ; 


for  ( j  =0 ; j<2*Nz; j++)  {  for  (k=0; k<2*Nz; k++)  { 

for  (i=0; i<Nr; i++)  {  dc[i]  =  h[i] [j] [k];  } 

gsl_dht_apply (t,  dc,  dcHT); 

for  (i=0; i<Nr; i++)  {  newh [ i ] [ j ] [ k]  =  dcHT [ i ] *2 *pi ; } 

}  } 


for  (i=0; i<Nr; i++)  { 

for  ( j=0; j<2*Nz; j++) { 


for  (k=0; k<2*Nz; k++) { 
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gsl_matrix_set  (m,  j  ,  k,  delta[j][k]*n[k]  +  n  [  j  ]  *  (newh  [i]  [j]  [k]  -QsHT  [i]  [j]  [k]  )  *n  [k]  )  ; 

}} 

gsl  linalg  LU  decomp (m, p, sign) ; 
for  (k=0; k<2*Nz; k++) { 

for  ( j=0; j<2*Nz; jll)  gsl_vector_set  (cvec, j , delta [j ] [k] ) ; 
gsl  linalg  LU  solve (m, p, cvec, hvec) ; 

for  ( j=0 ; j<2*Nz ; j ++)  c[i][j][k]  =  gsl_vector_get  (hvec,j); 

} 

} 

for  (i=0; i<Nr; i++)  {  for  ( j=0 ; j<2*Nz ; j ++)  {  for  (k=0; k<2*Nz; k++)  { 

c[i][j][k]  -=  delta [j ] [k] /n [j ]  +  uRegHT [ i ] [ j ] [ k]  +  QsHT [i] [ j ] [k] ; 
c  [i]  [j]  [k]  *  =  -1.0; 

}  }  } 

RecordTestfunctions () ; 


for  (j=0; j<2*Nz; jll) {  for  (k=0; k<2*Nz; k++) { 

for  (i=0; i<Nr; i++)  {  dc[i]  =  c[i] [j] [k];  } 

gsl_dht_apply (t,  dc,  dcHT) ;  for  (i=0; i<Nr; i++)  dcHT[i]  *  =  b*b/(2*pi); 
for  (i=0; i<Nr; i++)  {  c [ i] [ j ] [k]  =  dcHTfi];} 

}  } 


cout  <<  "Iteration  "  <<  it  <<  "  Maximum  error  "  <<  errmax  <<  "  at  (i,j,k) 


("  <<  imax  <<  <<  jmax  <<  <<  kmax  <<  ")  for  the  "  <<  pair  <<  "  interactions"  <<  endl 


} 

if  (it%l  ==  0  and  errmax  !=  0)  RecordCorrelationFunctions () ; 
if  (it>50)  errmax  =  0; 

if  (evaluations  >  0  and  it  >  500)  errmax  =  0; 
if  (evaluations  >  0)  CalculateDensity ( 3e4 ) ; 


cout  <<  setw(20)  <<  iterations  <<  "  iterations  after  "  << 
if  (iterations  ==  1  and  evaluations  >  30)  {  convergence  = 
evaluations!!; 


evaluations  <<  "  evaluations"  <<  endl; 

true;  cout  <<  "Convergence  to  requested  precision."  <<  endl; 


} 


if  (errmax  !=  0)  RecordCorrelationFunctions () ; 

gsl  matrix  free  (m)  ;  gsl  matrix  free  (m2);  gsl  vector  free  (hvec);  gsl  vector  free  (cvec);  gsl  dht  free  (t) ;  gsl  permutation  free  (p) ; 

} 

void  CoulombFluid: : AHNC_Loop (int  *itn,  bool  InitialRuns,  double  lambda)  { 

double  I  =  r[Nr-l],  alpha2 , alphaMem, b, d; 
gsl  dht  *  t  =  gsl  dht  new(Nr,  0.0,  I); 

gsl  matrix  *  m  =  gsl  matrix  alloc  (2*Nz,  2*Nz),*  m2  =  gsl  matrix  alloc  (2*Nz,  2*Nz); 

gsl  vector  *  hvec  =  gsl  vector  alloc  (2*Nz) ,  *  cvec  =  gsl  vector  alloc  (2*Nz) ; 

gsl  permutation  *  p  =  gsl  permutation  alloc  (2*Nz) ; 

int  sign[l],  it,  imax,  jmax,  kmax; 

char  pair [3] ; 

bool  peak  =  false; 

alpha2  =  alphaMem  =  0.5; 

b  =  gsl_sf_bessel_zero_J0 (Nrfl) /I/I; 

it  =  *itn; 


errmax  =  0;  it!!; 


for  (i=0; i<Nr; i!!)  {  for  ( j=0; j<2*Nz; jll)  {  for  (k=0; k<2*Nz; k!!) { 

newh [i] [ j ] [k]  =  exp (h [ i ] [ j ] [ k]  -  c[i] [j ] [k] -u[i] [ j ] [k] !uReg[i] [ j ] [k] )  -1.0; 

if  (newh [ i ] [ j ] [ k]  >  le2  and  sqrt (r [i] *r [i] tpow ( z [ j %Nz] -z [k%Nz] , 2 . 0) )  >  ap!ap)  {  peak  =  true;  imax=i; jmax=j ; kmax=k;  } //newh [i] [j ] [k]  =  c [ i ] [j ] [k] +u [i ] [ j ] [k 
}  }  } 

if  (peak)  {  cout  <<  "  ALERT  high  value  of  new  total  correlation  function  at  (i,j,k)  =  ("  <<  imax  <<  <<  jmax  <<  <<  kmax  <<  ")"  <<  endl;  peak  =  false; 


} 


for  (i=0; i<Nr; ill)  {  for  ( j =0 ; j<Nz; j 11)  {  for  (k=0; k<Nz; kll)  { 

d  =  sqrt (r [i] *r [i]  1  pow (z [ j ] -z [k] , 2 . 0) ) ; 

if  (d  >=  apv [ j ] lapv [ k] )  {err  =  h [i] [ j ] [k] -newh [i] [ j ] [k] ;  if  (fabs(err)  >  fabs (errmax) )  {errmax  =  err ; imax=i ; jmax= j ; kmax=k; strcpy (pair , "11" ) ; }  } 

if  (d  >=  amv [ j ] lamv [ k] )  {err  =  h[i] [jlNz] [ klNz ] -newh [ i ] [jlNz] [klNz];  if  (fabs (err)  >  fabs (errmax) )  {errmax  =  err ; imax=i ; jmax=j ; kmax=k; strcpy (pair ,"--"); }  } 

if  (d  >=  apv [ j ] lamv [ k] )  {err  =  h [ i ] [ j ] [ klNz ] -newh [ i ] [ j ] [ klNz ] ;  if  (fabs (err)  >  fabs (errmax) )  {errmax  =  err; imax=i; jmax=j ; kmax=k; strcpy (pair, "!-" ); }  } 

}  }  } 

if ( InitialRuns )  alpha2  =  min (alphaMem  /  fabs (errmax) , 0 . 05 ) ;  else  alpha2  =  alpha; 
cout  <<  setw(20)  <<  "alpha2  =  "  <<  alpha2  ; 

for  (i=0; i<Nr; ill)  {  for  ( j =0 ; j<Nz; j 11) {  for  (k=0; k<Nz; kll) { 

d  =  sqrt (r [i] *r [i]  1  pow (z [ j ] -z [k] , 2 . 0) ) ; 

if  (d  >=  apv [j ] lapv [k] )  {err  =  h [i] [ j ] [k] -newh [i] [ j ] [k] ;  h[i] [j] [ k]  -=  alpha2*err; }  else  h[i] [j] [k]  =  -1.0; 

if  (d  >=  amv [ j ] lamv [ k] )  {err  =  h[i]  [jlNz]  [ klNz ] -newh [ i ]  [jlNz]  [klNz];  h[i]  [jlNz]  [klNz]  -=  alpha2*err;}  else  h[i]  [jlNz]  [klNz]  =  -1.0; 

if  (d  >=  apv [ j ] lamv [ k] )  {err  =  h[i] [j] [ klNz ] -newh [ i ] [j] [klNz];  h[i] [j] [klNz]  -=  alpha2*err;  h[i] [jlNz] [k]  =  h[i] [j] [klNz];}  else  h[i] [jlNz] [k]  =  h[i] [j] [klNz]  =  -1.0; 

}  }  } 
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ResetQs ( ) ; 


for  ( j=0; j<2*Nz; j++) {  for  (k=0; k<2*Nz; k++) { 

for  ( i=0 ; i<Nr ; i++)  {  dc[i]  =  h  [i]  [  j ]  [k]  ;  } 

gsl_dht_apply (t,  dc,  dcHT); 

for  (i=0; i<Nr; i++)  {  newh [i]  [ j ]  [k]  =  dcHT [i] *2*pi; } 

}  } 


for  (i=0; i<Nr; i++)  { 

for  (j=0; j<2*Nz; j++) {  for  (k=0; k<2*Nz; k++) { 

gsl_matrix_set  (m,  j,  k,  delta[j][k]  +  (newh [i] [ j ] [k] -QsHT [i] [ j ] [k] ) *n [k] *lambda) ; 

}  } 

gsl  linalg  LU  decomp (m, p, sign) ; 
for  (k=0; k<2*Nz; k++) { 

for  ( j=0; j<2*Nz; j++)  gsl_vector_set  (cvec, j , delta [j ] [k] ) ; 
gsl  linalg  LU  solve (m, p, cvec, hvec) ; 

for  ( j=0; j<2*Nz; j++)  newg[i] [j] [k]  =  gsl_vector_get  (hvec,j); 

} 

} 

for  (i=0; i<Nr; i++)  {  for  ( j=0; j<2*Nz; j++) {  for  (k=0; k<2*Nz; k++) { 

newg [i] [ j ] [k]  -=  delta[j][k]; 

newg[i] [j] [k]  *  =  -1 . 0/n [j ] /lambda; 

newg [i] [j] [k]  +=  uRegHT[i] [j] [k]  +  QsHT [ i ] [j] [ k] ; 

}  }  } 


for  ( j=0; j<2*Nz; j++) { 
for  (i=0; i<Nr; i++)  { 

gsl_dht_apply (t,  dc, 
for  (i=0; i<Nr; i++)  { 

}  } 


for  (k=0; k<2*Nz; k++) { 
dc [i]  =  newg [ i ] [j ] [k] ;  } 

dcHT);  for  (i=0; i<Nr; i++) 
newg [i] [ j ] [k]  =  dcHT[i];} 


dcHT [i] 


*=  b*b/ (2*pi) ; 


alpha2=l . 0 ; 

for  (i=0; i<Nr; i++)  {  for  ( j =0 ; j<Nz; j ++) {  for  (k=0; k<Nz; k++)  { 

{err  =  c [i] [ j ] [k] -newg [i] [ j ] [k] ;  c [ i] [ j ] [k]  -=  alpha2*err; } 

{err  =  c[i] [j+Nz] [ k+Nz ] -newg [ i ] [j+Nz] [k+Nz];  c[i] [j+Nz] [k+Nz]  -=  alpha2*err; } 

{err  =  c[i] [j] [ k+Nz ] -newg [ i ] [j] [k+Nz];  c[i] [j] [k+Nz]  -=  alpha2*err;  c[i] [j+Nz] [k]  =  c[i] [j] [k+Nz];} 

}  }  } 


cout  <<  "\tIteration  "  <<  it  <<  "  Maximum  error  "  <<  errmax  <<  "  at  (r,z,z')  =  ("  <<  r[imax]  <<  "nm, "  <<  z[jmax]  <<  "nm, "  <<  z [kmax]  <<  "nm)  for  h  ("  <<  pair  <<  ")"  <<  endl 

if  (it%2  ==  0  and  errmax  !=  0)  RecordCorrelationFunctions ( ) ; 
if  (it%2  ==  0  and  errmax  !=  0)  RecordTestfunctions ( ) ; 

if  (it>50)  {  errmax  =  0;  cout  <<  "Warning,  iteration  is  broken  off  here"  <<  endl;  }  WARNING  iteration  s  broken  off  here 


*itn  =  it; 

gsl  matrix  free  (m) ;  gsl  matrix  free  (m2);  gsl  vector  free  (hvec);  gsl  vector  free  (cvec);  gsl  dht  free  (t) ;  gsl  permutation  free  (p) ; 

} 

void  CoulombFluid: : AHNC_convolute_Loop (int  *itn,  bool  InitialRuns,  double  lambda)  { 

double  I  =  r[Nr-l],  alpha2 , alphaMem, b, d,  *ThetaConv,  thetaMax,  A; 
gsl  dht  *  t  =  gsl  dht  new(Nr,  0.0,  I); 

gsl  matrix  *  m  =  gsl  matrix  alloc  (2*Nz,  2*Nz),*  m2  =  gsl  matrix  alloc  (2*Nz,  2*Nz); 

gsl  vector  *  hvec  =  gsl  vector  alloc  (2*Nz) ,  *  cvec  =  gsl  vector  alloc  (2*Nz) ; 

gsl  permutation  *  p  =  gsl  permutation  alloc  (2*Nz) ; 

int  sign[l],  it,  imax,  1; 

char  pair [3] , answer; 

bool  peak  =  false,  DontAskAgain=false; 

ThetaConv  =  (double*)  calloc  (Nr, sizeof (double) ) ; 

alpha2  =  alphaMem  =  0.5; 

b  =  gsl_sf_bessel_zero_J0 (Nr+1) /I/I; 

it  =  *itn; 

errmax  =  0;  it++; 


i=0;  while  (r[i]  <=  5 . 0/kappal+2 . 0*ap)  i++;  l=i; 

for  (i=0; i<Nr; i++)  {  for  ( j =0 ; j<2*Nz; j ++)  {  for  (k=0; k<2*Nz; k++)  { 

A  =  h [ i ] [ j ] [ k]  -  c[i] [j] [k]-(u[i] [j] [ k] -uReg [ i ] [j] [k] ) *lambda; 

if  (fabs(A)  <  10e-2)  {  newh[i] [j] [k]  =  A  +  A*A/2.0  +  A*A*A/ 6 . 0  +  A*A*A*A/24 . 0;  }  else  {  newh[i] [j] [k]  =  exp (A)  -1.0;  } 

if  (newh [ i ] [ j ] [ k]  >  1 . 0e2  and  sqrt (r [i] *r [i] +pow (z [ j%Nz] -z [k%Nz] ,2.0))  >  ap+ap)  {  peak  =  true;  imax=i ; jmax= j ; kmax=k;  } //newh [i] [j ] [k]  =  c [i] [j ] [k] +u[i] [j ] [k 
}  }  } 

if  (peak)  {  cout  <<  "  ALERT  high  value  of  new  total  correlation  function  at  (i,j,k)  =  ("  <<  imax  <<  <<  jmax  <<  <<  kmax  <<  ")"  <<  endl;  peak  =  false;  } 


for  (i=0; i<Nr; i++)  {  for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

d  =  sqrt (r [i] *r [i]  +  pow(z [ j ] -z [k] , 2 .0) ) *0.5; 

if  (d  >=  apv [ j ] +apv [ k] )  {err  =  h [i] [ j ] [k] -newh [i] [ j ] [k] ;  if  (fabs(err)  >  fabs (errmax) )  {errmax  =  err ; imax=i ; jmax=j ; kmax=k; strcpy (pair ,"++"); }  } 

if  (d  >=  amv [ j ] +amv [ k] )  {err  =  h[i] [j+Nz] [ k+Nz ] -newh [ i ] [j+Nz] [k+Nz];  if  (fabs(err)  >  fabs (errmax) )  {errmax  =  err ; imax=i ; jmax=j +Nz ; kmax=k+Nz ; strcpy (pair ,"--"); }  } 
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if  (d  >=  apv [ j ] +amv [ k] )  {err  =  h[i] [j] [ k+Nz ] -newh [ i ] [j] [k+Nz] ;  if  (fabs(err)  >  fabs (errmax) )  {errmax  =  err; imax=i; jmax=j ; kmax=k+Nz; strcpy (pair, }  } 
if  (d  >=  apv [ k] +amv [ j ] )  {err  =  h[i] [j+Nz] [k]-newh[i] [j+Nz] [ k] ;  if  (fabs (err)  >  fabs (errmax) )  {errmax  =  err ; imax=i ; jmax=j +Nz ; kmax=k; strcpy (pair ,"-+"); }  } 
}  }  } 

if ( InitialRuns )  alpha2  =  min(alphaMem  /  fabs (errmax) , alphaMin) ;  else  alpha2  =  alpha; 
cout  <<  setw(20)  <<  "alpha2  =  "  <<  alpha2  ; 


errMemJO]  =  errmax; 

for  (i=0; i<Nr; i++)  {  for  ( j =0 ; j<Nz; j ++) {  for  (k=0; k<Nz; k++) { 

d  =  sqrt (r [i] *r [i]  +  pow (z [ j ] -z [ k] , 2 . 0 ) ) ; 

if  (d  >=  apv [ j ] +apv [k] )  {err  =  h[i] [j] [k] —newh [i] [j] [k] ;  h[i] [j] [k]  -=  alpha2*err; }  else  h[i] [j] [ k]  =  -1.0; 

if  (d  >=  amv [ j ] +amv [ k] )  {err  =  h[i] [j+Nz] [ k+Nz ] -newh [ i ] [j+Nz] [k+Nz];  h[i] [j+Nz] [k+Nz]  -=  alpha2*err;}  else  h[i] [j+Nz] [k+Nz]  =  -1.0; 

if  (d  >=  apv [ j ] +amv [ k] )  {err  =  h[i] [j] [ k+Nz ] -newh [ i ] [j] [k+Nz];  h[i] [j] [k+Nz]  -=  alpha2*err;  }  else  h[i] [j] [k+Nz]  =  -1.0; 

if  (d  >=  apv [ k] +amv [ j ] )  {err  =  h[i]  [j+Nz]  [k]-newh[i]  [j+Nz]  [k];  h[i]  [j+Nz]  [k]  -=  alpha2*err;  }  else  h[i]  [j+Nz]  [k]  =  -1.0; 

}  }  } 


ResetQs ( ) ; 


for  ( j=0; j<2*Nz; j++)  {  for  (k=0; k<2*Nz; k++)  { 

for  ( i=0 ; i<Nr; i++)  {  dc[i]  =  h[i] [j] [k];  } 

gsl_dht_apply (t,  dc,  dcHT); 

for  (i=0; i<Nr; i++)  {  newh [ i ] [ j ] [ k]  =  dcHT [i] *2*pi; } 

}  } 


for  (i=0; i<Nr; i++)  { 

for  (j=0; j<2*Nz; j++) {  for  (k=0; k<2*Nz; k++) { 

gsl_matrix_set  (m,  j,  k,  delta[j][k]*n[k]  +  (newh [i] [j] [ k] -QsHT [ i ] [j] [k])*n[j]*n[k]); 

}  } 

gsl  linalg  LU  decomp (m, p, sign) ; 
for  (k=0; k<2*Nz; k++) { 

for  ( j=0; j<2*Nz; j++)  gsl_vector_set  (cvec, j , delta [j ] [k] ) ; 
gsl  linalg  LU  solve (m, p, cvec, hvec) ; 

for  ( j=0; j<2*Nz; j++)  c[i][j][k]  =  gsl_vector_get  (hvec,j); 

} 


for  (i=0; i<Nr; i++)  {  for  ( j =0 ; j<2*Nz; j ++) {  for  (k=0; k<2*Nz; k++) { 

c [i] [j] [k]  -=  delta [ j ] [k]/n[k]; 
c  [i]  [j]  [k]  *=  -1.0; 

c[i] [j] [k]  +=  uRegHT [i] [ j ] [k] * lambda  +  QsHT [ i ] [ j ] [ k] ; 

}  }  } 

if(it<0)  { 

for  (i=0; i<Nr; i++)  {  for  ( j=0; j<2*Nz ; j ++) {  for  (k=0; k<2*Nz; k++) { 

if (pow ( z [ j %Nz ] -z [ k%Nz ] , 2 . 0 )  +  r [i] *r [i] >4*ap*ap)  c[i][j][k]  *  =  exp (-2*kappal*sqrt (pow (z [ j%Nz] -z [k%Nz] , 2 . 0)  +  r[i]*r[i])); 
}  }  } 

cout  <<  "correction  to  c(k=0)  is  made"  <<  endl; 


RecordCorrelationFunctions () ; 


for  ( j=0; j<2*Nz; j++) {  for  (k=0; k<2*Nz; k++) { 

for  (i=0; i<Nr; i++)  {  dc[i]  =  c[i] [j] [k];  } 

gsl_dht_apply (t,  dc,  dcHT);  for  (i=0; i<Nr; i++)  dcHT[i]  *=  b*b/(2*pi); 
for  (i=0; i<Nr; i++)  {  c[i] [j] [k]  =  dcHTfi];  }/, 

}  } 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


cout  <<  "\tIteration  "  <<  it  <<  "  Maximum  error  "  <<  errmax  <<  "  at  (r,z,z') 


("  <<  r[imax]  <<  "nm, "  <<  z[jmax%Nz]  <<  "nm, "  <<  z[kmax%Nz]  <<  "nm)  for  h  ("  <<  pair  <<  ")"  <<  endl 


if  (it%2  ==  0  and  errmax  != 
if  (it%2  ==  0  and  errmax  != 


0)  RecordCorrelationFunctions () ; 
0)  RecordTestfunctions ( )  ; 


*itn  =  it; 


gsl  matrix  free  (m) ;  gsl  matrix  free  (m2);  gsl  vector  free  (hvec) ;  gsl  vector  free  (cvec) ;  gsl  dht  free  (t) ;  gsl  permutation  free  (p) ;  free (ThetaConv) ; 

} 

void  CoulombFluid : : AMHNC_Loop (int  *itn,  bool  InitialRuns,  double  lambda)  { 

double  I  =  r[Nr-l],  alpha2 , alphaMem, b, d,  *ThetaConv,  thetaMax; 
gsl  dht  *  t  =  gsl  dht  new(Nr,  0.0,  I); 

gsl  matrix  *  m  =  gsl  matrix  alloc  (2*Nz,  2*Nz),*  m2  =  gsl  matrix  alloc  (2*Nz,  2*Nz); 

gsl  vector  *  hvec  =  gsl  vector  alloc  (2*Nz) ,  *  cvec  =  gsl  vector  alloc  (2*Nz) ; 

gsl  permutation  *  p  =  gsl  permutation  alloc  (2*Nz) ; 

int  sign[l],  it,  imax; 

char  pair [3] ; 

ThetaConv  =  (double*)  calloc  (Nr, sizeof (double) ) ; 

alpha2  =  alphaMem  =  315.5; 

b  =  gsl_sf_bessel_zero_JO (Nr+1) /I/I; 

it  =  *itn; 

errmax  =  0;  it++; 


for  (i=0; i<Nr; i++)  {  for  ( j =0 ; j<Nz ; j ++) {  for  (k=0; k<Nz; k++) { 

d  =  sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) ) ; 

if  (d  >=  apv [ j ] +apv [ k] )  newh [i] [ j ] [k]  =  -u [ i ] [ j ] [ k] +0*uReg [ i ] [ j ] [ k] ; 

if  (d  >=  amv [ j ] +amv [ k] )  newh [ i ]  [  j  +Nz ]  [ k+Nz ]  =  -u [ i ]  [ j  +Nz ]  [ k+Nz ] +0*uReg [ i ]  [ j  +Nz ]  [ k+Nz ] ; 

if  (d  >=  apv [ j ] +amv [ k] )  {  newh[i] [j] [k+Nz]  =  -u[i] [j] [k+Nz] +0*uReg [i] [j] [k+Nz];  +  h[ij  [1] [k+Nz 

newh[i] [j+Nz] [k]=newh[i] [j] [k+Nz];  } 

}  }  } 

for  (i=0; i<Nr; i++)  {  for  ( j =0 ; j<Nz; j ++)  {  for  (k=0; k<Nz; k++)  { 

err  =  c[i] [j] [k]-newh[i] [j] [k];  if  (fabs(err)  >  fabs (errmax) )  [errmax  =  err; imax=i; jmax=j ; kmax=k; strcpy (pair, "++"); } 

err  =  c[i] [j+Nz] [ k+Nz ] -newh [ i ] [j+Nz] [k+Nz];  if  (fabs(err)  >  fabs (errmax) )  [errmax  =  err ; imax=i ; jmax=j +Nz ; kmax=k+Nz ; strcpy (pair ,"--"); } 
err  =  c[i] [j] [ k+Nz ] -newh [ i ] [j] [k+Nz];  if  (fabs (err)  >  fabs (errmax) )  [errmax  =  err ; imax=i ; jmax=j ; kmax=k+Nz ; strcpy (pair ,"+-"); } 

}  }  } 

if ( InitialRuns )  alpha2  =  min (alphaMem  /  fabs (errmax) , 0 . 5 ) ;  else  alpha2  =  alpha; 
cout  <<  setw(20)  <<  "alpha2  =  "  <<  alpha2  ; 

for  (i=0; i<Nr; i++)  {  for  ( j=0 ; j<Nz ; j ++) {  for  (k=0; k<Nz; k++) { 

err  =  c[i] [j] [k]-newh[i] [j] [k];  c[i] [j] [k]  -=  alpha2*err; 

err  =  c[i] [j+Nz] [ k+Nz ] -newh [ i ] [j+Nz] [k+Nz];  c[i] [j+Nz] [k+Nz]  -=  alpha2*err; 

err  =  c[i] [j] [ k+Nz ] -newh [ i ] [j] [k+Nz];  c[i] [j] [k+Nz]  -=  alpha2*err;  c[i] [j+Nz] [k]  =  c[i] [j] [k+Nz]; 

}  }  } 


for  ( j=0; j<2*Nz; j++) {  for  (k=0; k<2*Nz; k++) { 

for  (i=0; i<Nr; i++)  {  dc[i]  =  c[i] [j] [k];  } 

gsl_dht_apply (t,  dc,  dcHT); 

for  (i=0; i<Nr; i++)  {  newh [ i ] [ j ] [ k]  =  dcHT [i] *2*pi; } 

}  } 


for  (i=0; i<Nr; i++)  { 

for  ( j=0; j<2*Nz; j++) {  for  (k=0; k<2*Nz; k++) { 

gsl_matrix_set  (m,  j,  k,  delta[j][k]  -  (newh [i] [ j ] [k] -0*uReg [i] [ j ] [k] ) *n [k] ) ; 

}  } 

gsl  linalg  LU  decomp (m, p, sign) ; 
for  (k=0; k<2*Nz; k++) { 

for  ( j=0; j<2*Nz; j++)  gsl_vector_set  (cvec, j , delta [j ] [k] ) ; 
gsl  linalg  LU  solve (m, p, cvec, hvec) ; 

for  ( j=0 ; j<2*Nz; j ++)  h[i][j][k]  =  gsl_vector_get  (hvec,j); 

} 

} 

for  (i=0; i<Nr; i++)  {  for  ( j =0 ; j<2*Nz; j ++) {  for  (k=0; k<2*Nz; k++) { 

h [i] [j] [k]  -=  delta [ j ] [k] ; 
h [i]  [j]  [k]  /=  n  [  j  ]  ; 

}  }  } 


for  ( j=0; j<2*Nz; j++) { 
for  (i=0; i<Nr; i++)  { 

gsl_dht_apply (t,  dc, 
for  (i=0; i<Nr; i++)  { 

}  } 


for  (k=0; k<2*Nz; k++) { 
dc[i]  =  h[i] [j] [k] ;  } 

dcHT);  for  (i=0; i<Nr; i++) 
h[i]  [j]  [k]  =  dcHT [ i ]  ;  } 


dcHT [i]  *=  b*b/ (2*pi) ; 
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for  (k=0; k<Nz; k++) { 


for  (i=0; i<Nr; i++)  {  for  ( j=0;  j<Nz; j++)  { 

d  =  sqrt (r [i] *r [i]  +  pow (z [ j ] -z [k] , 2 . 0) ) ; 
if  (d  <  apv [ j ] +apv [ k] )  h [i] [ j ] [k]  =  -1.0; 

if  (d  <  amv [ j ] +amv [ k] )  h [ i ]  [ j  +Nz ]  [ k+Nz ]  =  -1.0; 

if  (d  <  apv [ j ] +amv [k] )  {  h [i] [ j ] [k+Nz]  =  -1.0;  h [i] [ j+Nz] [k]=h [i] [ j ] [k+Nz] ;  } 

}  }  } 


for  ( j=0; j<2*Nz; j++) { 
for  (i=0; i<Nr; i++)  { 

gsl_dht_apply (t,  dc, 
for  (i=0; i<Nr; i++)  { 

}  } 


for  (k=0; k<2*Nz; k++) { 
dc[i]  =  h[i] [j] [k] ;  } 

dcHT) ; 

newh [i] [ j ] [k]  =  dcHT [i] *2*pi; } 


for  (i=0; i<Nr/2; i++)  { 

for  (j=0; j<2*Nz; j++) {  for  (k=0; k<2*Nz; k++) { 

gsl_matrix_set  (m,  j,  k,  delta[j][k]  +  newh [i] [ j ] [k] *n [k] ) ; 

}  } 

gsl  linalg  LU  decomp (m, p, sign) ; 
for  (k=0; k<2*Nz; k++) { 

for  ( j=0; j<2*Nz; j++)  gsl_vector_set  (cvec, j , delta [j ] [k] ) ; 
gsl  linalg  LU  solve (m, p, cvec, hvec) ; 

for  ( j=0; j<2*Nz; j++)  newh[i] [j] [k]  =  gsl_vector_get  (hvec,j); 

} 

} 

for  (i=0; i<Nr; i++)  {  for  ( j =0 ; j<2*Nz; j ++) {  for  (k=0; k<2*Nz; k++) { 

newh [ i ] [ j ] [ k]  -=  delta [ j ] [ k] ; 
newh[i] [j] [k]  *=  -1 . 0/n [j ] /lambda; 
newh [i]  [ j ]  [k]  +=  0*uRegHT [i]  [  j ]  [k]  ; 

}  }  } 


for  ( j=0; j<2*Nz; j++) { 
for  (i=0; i<Nr; i++)  { 

gsl_dht_apply (t,  dc, 
for  (i=0; i<Nr; i++)  { 

}  } 


for  (k=0; k<2*Nz; k++) { 
dc [i]  =  newh [i]  [j ]  [k]  ;  } 

dcHT);  for  (i=0; i<Nr; i++) 
newh [ i ] [ j ] [ k]  =  dcHT [ i ] ; } 


dcHT [i]  *=  b*b/ (2*pi) ; 


cout  <<  "\tIteration  "  <<  it  <<  "  Maximum  error  "  <<  errmax  <<  "  at  (r,z,z')  =  ("  <<  r[imax]  <<  "nm, "  <<  z[jmax%Nz]  <<  "ran, "  <<  z[kmax%Nz]  <<  "nm)  for  c_ ( "  <<  pair  <<  ")"  <<  endl 

if  (it%2  ==  0  and  errmax  !=  0)  RecordCorrelationFunctions () ; 
if  (it%2  ==  0  and  errmax  !=  0)  RecordTestfunctions ( ) ; 


*itn  =  it; 

gsl  matrix  free  (m)  ;  gsl  matrix  free  (m2);  gsl  vector  free  (hvec);  gsl  vector  free  (cvec);  gsl  dht  free  (t) ;  gsl  permutation  free  (p) ;  free (ThetaConv) ; 


void  CoulombFluid : : OZ  AHNC  AdaptiveFinder (double  precision)  { 

double  Error,  minError , alphamem,  lambda=1.0,  *nMem; 
int  it=0,  trial,  trialmax=3,  runs=0,  maxruns=  1000000; 
bool  InitialRuns  =  true; 

nMem  =  (double*)  calloc  (2*Nz, sizeof (double) ) ; 
for  ( j=0; j<2*Nz; j++)  {  nMem[j]  =  n [ j ] ;  } 


ResetQs ( ) ; 


RecordCorrelationFunctions () ; 
errmax  =  le9; 

cout  <<  "\n**  Performing  the  initial  runs  with  adaptive  alpha,  for  "  <<  maxruns  <<  "  runs  **\n"  <<  endl; 
alphamem=alpha;  if  (evaluations  <  0)  lambda  =  0.1; 

while  (( fabs (errmax)  >  precision  and  runs  <  maxruns)  or  (lambda  <  1.0))  { 

Error  =  errmax; 

AHNC  convolute  Loop (&it, InitialRuns, lambda); 


runs++; 

if  (lambda  <  1.0  and  fabs (errmax)  <  precision*2)  {  lambda  +=  0.01;  cout  <<  "lambda  =  "  <<  lambda  <<  endl;  } 
if  (runs  <  10)  errmax  =  le200; 

if  (evaluations  >  30  and  fabs (errmax) <precision/10 . 0)  {  errmax  =  precision/ le2 ;  cout  <<  "Alert:  possible  convergence,  not  certain"  <<  endl;  } 
if  (evaluations  >  40  )  {  errmax  =  precision/le2 ;  cout  <<  "Alert:  possible  convergence,  not  certain"  <<  endl;  } 

} 


if  (InitialRuns 
InitialRuns  = 
cout  <<  "\n** 

} 


and  fabs (errmax)  >  precision)  { 

false; 

Initial  runs  have  been  performed. 


Next  runs  will  use  trial  values  for  the  alpha  parameter  **\n"  <<  endl; 
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alphaO [ 0 ] =alpha; 

while  ( f abs (errmax)  >  precision  or  lambda  <  1.0)  { 

InitialCorrelationFunctions () ;  minError=10e200; 
for  (trial=0; trial<trialmax; trial++)  { 

SetCorrelationFunctions () ; 

alpha  =  alphaO [0] *pow (5 . 0, - (trialmax-1 . 0) /2 . 0  +  trial ) *pow ( 1 . 0 , trial* 1 . 0 ) ; 
if  (alpha  >  1)  continue; 

AHNC  Loop (&it, InitialRuns, lambda) ;  if  (lambda  <  1.0)  {  lambda  +=  0.01;  cout  <<  "lambda  =  "  <<  lambda  <<  endl;  } 

AHNC  Loop (&it, InitialRuns, lambda) ;  if  (lambda  <  1.0)  {  lambda  +=  0.01;  cout  <<  "lambda  =  "  <<  lambda  <<  endl;  } 

Error  =  fabs (errmax) ;  cout  <<  "Last  error  of  trial  "  <<  trial  <<  "  with  alpha  =  "  <<  alpha  <<  "  had  a  maximum  value  of  "  <<  errmax  <<  endl; 
if  (Error  <  minError)  {  minError=Error ;  FinalCorrelationFunctions ( ) ;  } 

} 

GetCorrelationFunctions () ; 

cout  <<  "\nOptimal  alpha  was  found  for  alpha  =  "  <<  alphaO [0]  <<  "  with  maximum  error  "  <<  errmax  <<  "\n"  <<  endl; 
if  (alpha  <  le-12)  {  cout  <<  "iteration  break  because  of  small  alpha  parameter"  <<  endl;  break;  } 

}  /*  end  of  loop  here  V 

alpha=alphamem; 

cout  <<  setw(20)  <<  it  <<  "  iterations  after  "  <<  evaluations  <<  "  evaluations"  <<  endl; 

if  (iterations  ==  1  and  evaluations  >  30)  {  convergence  =  true;  cout  <<  "Convergence  to  requested  precision."  <<  endl;  } 

evaluations+1; 

if  (errmax  !=  0)  RecordCorrelationFunctions ( ) ; 

if  ( fabs (errmax)  <  precision*le-l)  convergence  =  true; 


free (nMem) ; 


void  CoulombFluid : : CalculateDensity (int  Nmax)  { 

double  *newcp,  *newcm,  norml,  norm2; 
int  SCount=0,  jmax=0; 

bool  LowDens=false; 
char  type [40]; 


iterations=0 ; 

newcp  =  (double*)  calloc  (Nz , sizeof (double) ) ;  newcm  =  (double*)  calloc  (Nz , sizeof (double) ) ; 

for  ( j=0 ; j<2*Nz; j ++)  {  for  (k=0; k<2*Nz; k++)  { 

mu [ j ] [k]  =  0; 

}  } 


if  (correlations)  { 

for  ( j=0 ; j<2*Nz ; j ++)  {  for  (k=0; k<2*Nz; k++)  { 

for  (i=l; i<Nr; i++)  { 

mu[j] [k]  +=  pi* (r [i] *r[i] -r [i-1] *r [i-1] ) * (0.5* (h[i] [j] [k]-Qs[i] [j] [k] ) * (h [i] [j] [k]-c[i] [j] [k]+uReg[i] [j] [k] )  -  c[i] [j] [k]  +  Qs[i] [j] [k]  +  uReg[i] [j] [k]  -  u[i] [j] [k] ) 

} 


}  } 

for  ( j=0 ; j<2*Nz; j ++)  {  for  (k=0; k<2*Nz; k++)  { 


newMu [ j ]  [ k]  =  mu [ j ]  [ k]  ; 

}  } 

}  /*  ALERT  check  mu  -  &has  been  checked  many  times  -  and  changed  recentl 

else  { 

for  ( i=0 ; i<Nr ; i++)  {  for  ( j=0 ; j<2*Nz ; j ++) {  for  (k=0; k<2*Nz; k++) { 

c [i] [j] [k]  =  uReg [ i ] [j] [k]-u[i] [j] [k] ; 
c [i] [j] [k]  *=  0.8; 

}  }  } 

for  ( j=0; j<2*Nz; j++) { 

muexp [ j ]  =  muexm [ j ]  =  0.0; 

} 


errmax=l . 0 ; 


if (correlations)  { 
for  ( j=0 ; j<Nz; j  ++)  { 

norml=norm2=0 ; 

for  (k=0; k<2*Nz; k++)  norml  +=  n [ k] *newMu [ j ] [ k ] ; 
muexp[j]  =  norml; 

for  (k=0; k<2*Nz; k++)  norm2  +=  n [ k] *newMu [ j +Nz ] [k]; 
muexm[j]  =  norm2; 

} 


}  //RecordProf lies (false)  ; 

while  (errmax  >  tolerance)  { 
errmax  =  0.0; 


CalculateEf ieldAndPotential ()  ; 
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if (iterations%1000000  ==  -1)  Potentiostat ( ) ; 

for  ( j=0; j<Nz; j++)  { 


newcp[j]  =  csl*exp (-qp*phi [ j ]  -  Vextp[j]  -  muexp[j]  +  muExlp) ; 

newcm[j]  =  qp/qm*csl*exp (  qm*phi[j]  -  Vextm[j]  -  muexm[j]  +  rauExlra) ; 


norml  =  norm2  =  0.0; 
norm2  =  csl*3.0; 


if  (BulkPhase2)  { 

for  ( j=0 ; j <Nz; j ++)  {  if  (  ( z [Nz-1 ] -z [ j %Nz] )  <  BulkCutoff  )  {  newcp[j]  =  newcp[j-l];  newcm[j]  =  newcm[j-l];  }  } 

norml  =  newcp[Nz-l];  norm2  =  newcm [Nz-1]; 

for  ( j=0; j<Nz; j++)  {  newcp[j]  *  =  csl/norml;  newcm[j]  *  =  qp/qm*csl/norm2 ;  } 


for  ( j  =0 ; j  <Nz ; j  ++ )  { 


err  =  (cp [ j ] -newcp [ j ] ) ;  if (errmax<=f abs (err) )  {  errmax  =  fabs (err) ;  jmax=j;  strcpy (type, "cations" ) 

cP[j]  ~=  alpha*err*cp [ j ] ; 


err  =  (cm [j ] -newcm [j ]) ;  if (errmax<=f abs (err) )  {  errmax  =  fabs (err) ;  jmax=j;  strcpy (type, "anions" ) ; 

cm[j]  -=  alpha*err*cm [ j ] ; 

} 

for  ( j=0; j<Nz; j++)  {  n[j]  =  cp[j]*dz[j];  }  for  ( j=Nz ; j<2*Nz; j ++)  {  n [ j ]  =  cm [ j -Nz ] *dz [ j -Nz ]  ;  } 


)  ; 


if  ([correlations)  for ( j=0; j<Nz; j++)  {  cpMF [ j ] =cp [ j ] ;  cmMF [ j ] =cm [ j ] ;  } 

if  (iterations%10000  ==  0)  { 

cout  <<  setw(20)  <<  iterations  <<  "  iterations ; \tmaximal  error  is"  <<  setw(14)  <<  errmax  <<  "  at  z  =  "  <<  z[jmax]  <<  "  nm  for  the 

} 

if  (iterations  >  Nmax)  break; 
for  (j=l ; j<Nz-l ; j ++)  { 

} 


if (iterations%100000  ==  0)  GnuplotDensity ( ) ; 


iterations++; 


cout  <<  setw(20)  <<  iterations  <<  "  iterations ; \tmaximal  error  is"  <<  setw(14)  <<  errmax  <<  "  at  z  =  "  <<  z[jmax]  <<  "  nm  for  the  " 


for  ( j=0; j<Nz; j++)  {  n[j] 

for  ( j=Nz; j<2*Nz; j++)  {  n[j] 


cp [ j ] *dz [ j ] ;  } 

cm [ j -Nz ] *dz [ j -Nz ] ;  } 


for  ( j=0; j<Nz; j++)  {  if  (muexm[j]  !=  muexm[j])  SCount++;  if  (muexp[j]  !=  muexp[j])  SCount++;  } 


if  (LowDens)  {  cout  <<  "Adapted  density"  <<  endl;  LowDens=false;  } 

if  (SCount  !=  0)  {  cout  <<  SCount  <<  "  singularities  were  counted"  <<  endl;  Singularities  =  true;  return;  } 


free (newcp) ;  free (newcm) ; 


} 

void  CoulombFluid : : CalculateMeanPotentialSlit ( )  { 

double  Al,sum; 
double  *  Q; 

Q  =  (double*)  calloc  (Nz, sizeof (double) ) ; 

for  ( j  =0 ; j<Nz; j  ++)  {  Q [ j ]  =  qpv[j]*cp[j]  -  qmv [ j ] *cm [ j ] ; } 

A1  =  2*pi*lBl; 

for  ( j=l; j<Nz-l ; j  ++)  { 

sum  =  0; 


"  <<  type  <<  endl; 


<<  type  <<  endl; 
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Q[k]  *dz [ k] ; 


for  (k=l; k<Nz-l; k++)  { 

sum  +=  Al* (fabs (z [k] -z [ j ] ) ) * 

} 

phi [ j ]  =  -sum; 


} 

for  ( j=l; j<Nz-l; j++)  { 

if  (j !=  Nz/2)  phi [ j ]  -=  phi [Nz/2]; 

}  phi [Nz/2] =0; 

phi[0]  =  phi[l];  phi[Nz-l]  =  phi [Nz-2]; 
free (Q) ; 


} 


void  CoulombFluid : : CalculateMeanPotentiallboundary ( )  { 


double  norm,  *newphi; 

gsl  vector  *  Q  =  gsl  vector  alloc  (Nz-2),*  diag  =  gsl  vector  alloc  (Nz-2),  *  up  =  gsl  vector  alloc  (Nz-3) ,  *  low  =  gsl  vector  alloc  (Nz-3) ,  *  phivec  =  gsl  vector  alloc  (Nz-2) 


newphi  =  (double*)  calloc  (Nz , sizeof (double) ) ; 
interface  =  Nz/2; 

for  ( j=0; j <interf ace-2 ; j++)  {  gsl_vector_set (Q, j , -4*pi*lBl* (qp*cp [ j+1]  -  qm*cm[ j+1] ) ) ; 

for  (j=interface-l; j<Nz-2; j++)  {  gsl_vector_set (Q, j , -4*pi*lB2* (qp*cp [ j+1]  -  qm*cm[ j+1] ) ) ; 

for  ( j=0; j<Nz-2; j++)  { 

norm  =  (z  [j+2] -z  [ j+1] ) *  (z [ j+1] -z [ j ] ) * (z [j+2] -z [ j ] ) *0 . 5; 
gsl_vector_set (diag, j , - (z [ j+2] -z [ j ] ) /norm)  ; 
if  (j  ==  Nz-3)  break; 

gsl_vector_set (up, j , (z [ j+1] -z [ j ] ) /norm) ; 
gsl_vector_set (low, j , (z [ j+3] -z [ j+2] ) /norm) ; 

} 


} 

} 


gsl_vector_set (diag, 0,  (z  [0] -z  [1]  -  (z[2]-z[l])* (1 . 0-exp (-kappal* (z  [1]  -z  [0]  )  )  )  )  /  (z  [2]  -z  [1]  )  /  (z  [1]  -z  [0]  )  /  (z  [2]  -z  [0]  )  *2 .0)  ; 

gsl  vector  set (diag, Nz-3, (z[Nz-2]-z[Nz-l]  -  (z [Nz-2] -z [Nz-3])* (exp ( -kappa2* (z[Nz-l]-z[Nz-2]))-1.0))/ (z[Nz-l]-z[Nz-2])/ (z [Nz-2] -z [Nz-3])/ (z [Nz-1] -z [Nz-3]) *2.0); 


gsl  linalg  solve  tridiag  (diag, up, low, Q, phivec) ; 

for  ( j=0; j<Nz-2; j++)  {  newphi [j+1]  =  gsl_vector_get (phivec, j )  -  gsl_vector_get (phivec, 0) ;  } 

newphi [0]  =  newphi [1] *exp (-kappal* (z [1] -z [0] )) ;  newphi [Nz-1]  =  (newphi [Nz-2] -phiD) *exp (-kappa2* (z [Nz-1] -z [Nz-2] )) +phiD; 

for  ( j  =0 ; j <Nz; j  ++)  {  phi[j]  -=  (phi[j]  -  newphi[j]);  } 

free (newphi ) ; 

gsl_vector_f ree (Q) ; gsl_vector_f ree (diag) ; gsl_vector_f ree (up) ; gsl_vector_f ree (low) ; gsl_vector_f ree (phivec) ; 

} 

void  CoulombFluid :: CalculateExpensivePotential ( )  { 


double  Al , A2 , B1 , B2 , g, sum; 

double  *  Q; 


Q  =  (double*)  calloc  (Nz , sizeof (double) ) ; 

for  ( j=0 ; j<Nz ; j  ++)  {  Q [ j ]  =  qpv[j]*cp[j]  -  qmv [ j ] *cm [ j ] ; } 

Al  =  2*pi*lBl;  B1  =  2*1B2/ (1B1+1B2) ; 

A2  =  2*pi*lB2;  B2  =  2*1B1/ (1B1+1B2) ; 
g  =  0.5* (B1-B2 ) ; 


for  ( j  =1 ; j <Nz-l ; j  ++)  { 

sum  =  0; 

for  (k=l; k<Nz-l; k++)  { 

if  (z[k]  <  0  and  z [ j ]  <  0) 
if  (z[k]  >=  0  and  z [ j ]  >=  0) 
if  (z[k]  >=  0  and  z[j]  <  0) 
if  (z[k]  <  0  and  z [ j ]  >=  0) 

} 

phi [ j ]  =  -sum; 


sum  +=  Al* (fabs (z [k] -z [ j ] )  +  f abs ( z [ k] +z [ j ] +epsilon) *  g 

sum  +=  A2* (fabs (z [k] -z [ j ] )  -  f abs ( z [ k] +z [ j ] +epsilon) *  g 

sum  +=  Al*fabs (z [ j ] -z [k] ) *B1*  Q[k]  *dz[k]; 
sum  +=  A2*fabs (z [ j ] -z [k] ) *B2*  Q[k]  *dz[k]; 


Q[k] 

Q[k] 


*dz [k] ; 
*dz [k] ; 


} 

for  ( j=l; j<Nz-l; j  ++)  { 

if  (j  !=  Nz/2)  phi[j]  -=  phi [Nz/ 2 ] ; 

}  phi [Nz/2] =0; 

phi[0]  =  phi[l];  phi [Nz-1]  =  phi [Nz-2]; 


free (Q) ; 


} 

void  CoulombFluid :: CalculateExpensivePotential2Walls ( )  { 


double  sum,  Al; 

double  *  Q,  *  newphi,  alpha2; 

Q  =  (double*)  calloc  (Nz , sizeof (double) ) ; 

newphi  =  (double*)  calloc  (Nz , sizeof (double)); 
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qp*cp [ j ]  -  qm*cm [ j ] ; } 


alpha2  =  1.0; 


for  ( j=0; j<Nz; j++)  {  Q [ j ]  = 

A1  =  2*pi*lBl; 
sum  =  0; 

for  (k=0; k<Nz; k++)  { 

sum  +=  Al* (fabs (z [k] -z [Nz/2] ) ) *  Q[k]  *dz[k]; 

} 

newphi[Nz/2]  =  -sum; 
for  ( j=l; j<Nz-l; j++)  { 

sum  =  0; 

for  (k=0; k<Nz; k++)  { 

sum  +=  Al* (fabs (z [k] -z [ j ] ) ) *  Q[k]  *dz[k]; 

} 

newphi[j]  =  -sum; 


phi [ j ]  -=  alpha2 * (phi [ j ] -newphi [ j ]) ; 

}  //newphi [Nz/2]  =  0;  phi [Nz/2]  =  0; 

phi[0]  =  phi[l]  +  2*pi*lBl*Q [0] *pow (dz [0] , 2 . 0) ;  phi[Nz-l]  =  phi[Nz-2]  +  2*pi*lBl*Q [Nz-1] *pow (dz [Nz-1] , 2 . 0) ; 


newphi  [j]  =  0 . 5* (Vextm [ j ]  +  muexm[j]  -  muExlm  -  Vext  p[j]  ~  muexp[j]  +  m 

?r  (j=l;j<Nz-l;j+  +  )  {  phi[j]  -=  alpha2  *  (phi  [  j  ]  -newphi  [  j  ])  ;  } 

/  phi [ 0]  =  phi[l]  +  2 *pi * 1B1 *Q [0] *pow  (dz [0 ], 2 . 0 ) ;  phi [Nz-1]  =  phi[Nz-2] 
/  phi[0]  =  phi[l ];  phi [Nz-1]  =  phi[Nz-2]; 


free (Q) ;  free  (newphi); 


} 

void  CoulombFluid : : Potentiostat ( )  { 


double  Vdif,  scale; 


Vdif  =  fabs (phi [Nz-1] -phi [0] ) ; 
Vdif  *=  kB*T  /  e; 


if  (Vdif  !=  0.0)  scale  =  Vtot  /  Vdif; 

else  {  scale  =  1.0;  cout  <<  "careful,  potential  difference  is  zero"  <<  endl;  } 
cout  <<  "potential  multiplied  by  "  <<  scale  <<  endl; 


for  ( j  =0 ; j  <Nz ; j  ++)  { 

Vextp[j]  *=  scale; 
Vextm[j]  *=  scale; 

} 


} 

void  CoulombFluid :: CalculateEf ieldAndPotential ( )  { 


double  sum,  suml,  sum2,  Al; 

double  *  Q,  *  newphi,  alpha2,  *  E,  *  El,  *  E2; 

Q  =  (double*)  calloc  (Nz , sizeof (double) ) ; 

E  =  (double*)  calloc  (Nz , sizeof (double) ) ; 

El  =  (double*)  calloc  (Nz , sizeof (double) ) ; 

E2  =  (double*)  calloc  (Nz , sizeof (double) ) ; 

newphi  =  (double*)  calloc  (Nz , sizeof (double) ) ; 

alpha2  =  0.005; 


for  ( j=0; j<Nz; j++)  {  Q [ j ]  =  qp*cp[j]  -  qm*cm[j];} 

Al  =  4*pi*lBl;  E [ 0 ]  =  E[Nz-l]  =  0;  E1[0]  =  El[Nz-l]  =  0;  E2[0]  =  E2[Nz-l]  =  0; 

for  ( j=l; j<Nz-l; j++)  {  El [ j ]  =  El  [ j  —1 ]  +  Al  *  Q [ j  —1 ]  *  dz [ j ] ; } 
for  ( j=Nz— 2 ;j>0;j  — )  {  E2[j]  =  E2[j+1]  -  Al  *  Q[j+1]  *  dz [ j ] ; } 
for  ( j=l; j<Nz-l; j++)  {  E [ j ]  =  (El [ j ] +E2 [ j ] ) /2 . 0 ; } 


for  ( j=l; j<Nz-l; j++)  { 

sum  =  0;  suml  =  0;  sum2  =  0; 

for  (k=0;k<j+l; k++)  {  suml  +=  E[k]  *dz[k];  } 

for  ( k=Nz-l ; k> j -1 ; k-- )  {  sum2  +=  E[k]  *dz[k];  } 


newphi [j]  =  - ( suml+sum2 ) /2 . 0 ; 
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phi [ j ]  -=  alpha2 * (phi [ j ] -newphi [ j ]) ; 

} 

phi[0]  =  phi[l]  =  phi[Nz-l]  =  phi[Nz-2]; 


free (Q) ;  free(E);  free (El);  free(E2);  free  (newphi); 


} 

void  CoulombFluid : : CalculatePotentialWithTraceSalt ( )  { 


double  sum,  Al,  rhoTr; 

double  *  Q,  *  newphi,  alpha2,  * DDphi; 

Q  =  (double*)  calloc  (Nz , sizeof (double) ) ; 

newphi  =  (double*)  calloc  (Nz , sizeof (double) ) ; 
DDphi  =  (double*)  calloc  (Nz , sizeof (double) ) ; 

alpha2  =  1.0;/  0  0 0 5 , 
rhoTr=  10e-4; 


for  ( j=0; j<Nz; j++)  {  Q [ j ]  =  qp*cp[j]  -  qm*cm[j]  +  rhoTr*csl*exp (-2*phi [ j ] )  +  QDNA[j];} 

Al  =  4 . 0*pi*lBl ; 

for  ( j=l; j<Nz-l; j++)  {  DDphi[j]  =  phi[j+l]  +  phi[j-l]  -  2*phi[j];  DDphi[j]  /=  dz [ j ] *dz [ j ] ; } 

for  ( j=l; j<Nz-l; j++)  { 

sum  =  DDphi [j]  /  Al  +  Q [ j ] ; 

sum  /=  (2.0*rhoTr); 

newphi [j]  =  log (sum  +  sqrt ( 1 . 0+sum*sum) ) ; 
phi[j]  -=  alpha2 * (phi [ j ] -newphi [ j ]) ; 

} 

phi[0]  =  phi[l];  phi[Nz-l]  =  phi[Nz-2]; 


free  (Q) ;  free  (newphi);  free (DDphi); 


void  CoulombFluid :: CalculateAnalyticalProf iles ( )  { 

double  Cl,  C2 ,  n,  p,  D; 

n  =  sqrt(el/e2);  p  =  sqrt (csl/cs2 ) ;  D  =  sqrt (n*n*p*p  +  2*n*p*cosh (phiD/2 . 0) +1 . 0) ; 

Cl  =  n*p  +  cosh (phiD/2 . 0 )  -  D;  Cl  /=  sinh (phiD/2 . 0 ) ; 

C2  =  -1.0  -  n*p*cosh (phiD/2 . 0 )  +  D;  C2  /=  n*p*sinh (phiD/2 . 0) ; 

for  ( j=0; jcinterface; j++)  { 

phiAN[j]  =  4 . 0*atanh (Cl*exp (kappal* (z [ j ] Tepsilon) ) ) ; 
cpAN[j]  =  csl*exp (-phiAN [ j ] ) ; 
cmAN[j]  =  qp/qm*csl*exp (  phiAN[j]); 

} 

for  ( j=interface; j<Nz; j++)  { 

phiAN[j]  =  4 . 0*atanh (C2 *exp ( -kappa2 * ( z [ j ] Tepsilon) ) ) +phiD; 
cpAN[j]  =  cs2 *exp ( -phiAN [ j ]  +  phiD); 
cmAN[j]  =  qp/qm*cs2 *exp (  phiAN[j]  -  phiD); 

} 

for  ( j  =0 ; j<Nz; j  ++)  {  phi[j]  =  phiAN[j];  cp[j]  =  cpAN[j];  cm[j]  =  cmAN[j];  } 


void  CoulombFluid :: CalculateFreeEnergy ( )  { 

gsl  dht  *  t  =  gsl  dht  new (Nr,  0.0,  r[Nr-l]); 
gsl  matrix  *  m  =  gsl  matrix  alloc  (2*Nz,  2*Nz); 
gsl  permutation  *  p  =  gsl  permutation  alloc  (2*Nz) ; 
int  sign [ 1 ] ; 
double  det,  Fp,  Fm; 

Pzz [nf]  =  cp[0]  +  cm[0]  -  (Vextp [ 1 ] -Vextp [ 0 ] ) /dz [ 0 ] *cp [ 0 ]  -  (Vextm [ 1 ] -Vextm [ 0 ] ) /dz [ 0 ] *cm [ 0 ] ; 
for  ( j=l; j<Nz/2 ; j  ++)  { 

Fp  =  -  (Vextp [j +1 ] -Vextp [j -1 ])/ (2 . 0*dz [j ]) ; 
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Fm  =  -  (Vextm [ j +1 ] -Vextm [ j -1 ] ) / (2 . 0*dz [ j ] ) ; 
Pzz [nf]  +=  Fp*n[j]  +  Fm*n[j+Nz]; 


for  ( j=0; j<2*Nz; j++)  {  for  (k=0; k<2*Nz; k++)  { 

Zcorr[j] [k]  =  mu[j] [k]  =  0.0; 

}  } 


for  ( j=0; j<2*Nz; j++)  {  for  (k=0; k<2*Nz; k++)  { 

for  (i=l; i<Nr; i++)  { 

mu[j][k]  -=  2*pi*r[i]*(r[i]  -r[i-l])  *  (0 . 5*pow (h [i] [ j ] [k] -Qs [i] [ j ] [k] , 2 . 0)  +  h[i]  [j ]  [k] -Qs  [i]  [ j ]  [k]  )  ; 

mu[j][k]  +=  2*pi*r[i]*(r[i]  -r[i-l])  *  (  (h [i] [ j ] [k] -Qs [i] [ j ] [k] +1 . 0) *log (h [i] [ j ] [k] -Qs [i] [ j ] [k] +1 . 0+le-30)  +  (h[i] [ j ] [k] -Qs [i] [ j ] [k] +1.0) *u[i] [ j ] [k]  ); 

} 

}  } 

for  ( j=0; j<Nz; j ++)  {  for  (k=0; k<Nz; k++)  { 

for  (i=l; i<Nr; i++)  { 

Zcorr[j][k]  +=  2*pi*r[i]*(r[i]  -  r [i-1] )  *  (  (h[i][j][k]-Qs[i][j][k]+1.0)  *n [ j ] *n [k]  +  (h [i] [ j+Nz] [k+Nz] -Qs [i] [ j+Nz] [k+Nz] +1.0)  *n [ j+Nz] *n [k+Nz]  ) ; 

Zcorr[j] [k]  -=  2*pi*r [i] * (r [i]  -  r[i-l])  *  (  ( h [ i ] [j] [k+Nz]-Qs[i] [j] [k+Nz]+1.0)  *n  [  j ] *n [ k+Nz ]  +  ( h [ i ] [j+Nz] [k]-Qs[i] [j+Nz] [k]+1.0)  *n  [  j +Nz ] *n [ k]  ) 

} 

}  } 


for  ( j  =0 ; j  <Nz ; j  ++)  { 

if  (z[j]-z[0]  <  Vlength)  NP[nf]  +=  n[j]; 
if  (z[j]-z[0]  <  Vlength)  NM[nf]  +=  n[j+Nz]; 

} 


for  ( j=0; j<2*Nz; j++)  { 

for  (k=0; k<2*Nz; k++)  { 

Fexc[nf]  +=  0 . 5*n [ j ] *n [k] *mu [ j ] [k] ; 

} 

} 


for  ( j=0; j<Nz; j++)  { 

for  (k=0; k<Nz; k++)  { 

if  (z  [  j ] -z  [0]  < 

if  (z [ j ] -z [0]  < 

if  (z [Nz-1] -z [ j ]  < 

} 

} 


Vlength  and  z[k]-z[0] 
Vlength  and  z[Nz-l]-z[k] 
Vlength  and  z[Nz-l]-z[k] 


<  Vlength)  ZlZl[nf] 

<  Vlength)  Z1Z2 [nf ] 

<  Vlength)  Z2Z2 [nf ] 


+=  Zcorr [ j ] [k] ; 
+=  Zcorr [j  ]  [k]  ; 
+=  Zcorr [j ] [k] ; 


for  ( j=0; j<2*Nz; j++)  { 

for  (i=0; i<Nr; i++)  { 

gsl_dht_apply (t,  dc, 
for  (i=0; i<Nr; i++)  { 

}  } 


for  (k=0; k<2*Nz; k++)  { 

dc[i]  =  h[i] [j] [k] ;  } 

dcHT) ; 

hFT  [  i ]  [ j ]  [ k]  =  dcHT[i]*2*pi 


QsHT  [  i ]  [j]  [k] ; } 


for  (i=0; i<Nr-l; i++)  { 

for  ( j=0 ; j<2*Nz; j ++)  {  for  (k=0; k<2*Nz; k++)  { 

gsl_matrix_set  (m,  j,  k,  delta[j][k]  +  hFT [i] [ j ] [k] *n [k] ) ; 

}  } 

gsl  linalg  LU  decomp (m, p, sign) ; 
det  =  gsl  linalg  LU  lndet  (m) ; 

for  ( j=0 ; j<2*Nz ; j  ++)  det  -=  n [ j ] *hFT [ i ]  [ j ]  [ j ] ; 

Fexc [nf ]  -=  0 . 5*pow (2*pi,-2.0)* (kFT [i+1] -kFT [i] ) *2*pi*kFT [i] *det; 


for  ( j=0; j<Nz; j++)  { 

Fid[nf]  +=  (cp [ j ] * (log (cp [ j ] /csl ) -1 . 0)  +  cm [ j ] * (log (cm [ j ] /csl ) -1 . 0) ) *dz [ j ] ; 

Fext[nf]+=  (cp [ j ] * (Vextp [ j ] +phi [ j ] )  +  cm [j ]* (Vextm [j ] -phi [j ])) *dz [j ] ; 

} 

Hf[nf]  =  H/kappal;  cout  <<  "TEST:  H/kappal  =  "  <<  H/kappal  <<  "  and  H[hf]  =  "  <<  Hf[nf]  <<  endl; 


FexcDH[nf]  =  sqrt (8*pi*lBl*qm*cm[Nz/2] ) ;  FexcDH[nf]  =  -pow (FexcDH [nf ] , 3 . 0) / (12*pi) ; 


gsl  matrix  free  (m) ;  gsl  permutation  free  (p) ;  gsl  dht  free  (t)  ; 


void  CoulombFluid : : CalculateCorrelationLength ( )  { 

double  *Lambda, ‘Inverse, *Inverse2, range [2] ; 
int  1 [2 ] ,11,12; 

Lambda  =  (double*)  calloc  (Nz , sizeof (double) ) ; 

Inverse  =  (double*)  calloc  (Nz , sizeof (double) ) ; 

Inverse2  =  (double*)  calloc  (Nz , sizeof (double) ) ; 
range [0]  =  2*ap  +  2. 0/ kappa 1; 
range [1]  =  2*ap  +  4. 0/ kappa 1; 

i=0  ; 

while (i<Nr-l  and  r[i]  <  range [0] ) i++; 

1[0]  =  i;  cout  <<  "1[0]  =  "  <<  1 [ 0 ]  <<  "  and  r[l[0]]  =  "  <<  r[l[0]]  <<  "  nm."  <<  endl; 
ll=i; 

while (i<Nr-l  and  r[i]  <  range [1] ) i++; 

i  [i]  =  i; 

12=11+5; 

for  ( j=0 ; j<Nz; j  ++)  { 


Lambda [j]  =  log(h[ll][j][j+Nz]*r[ll])  -  log (h [12 ]  [ j ]  [ j+Nz] *r [12] )  ;  Lambda [j]  /=  r[12]-r[ll];  Lambda [ j ]  =  1 . 0 /Lambda [ j ] ; 

Lambda[j]  *=  kappal; 

} 

for  ( j=0; j<Nz; j++)  { 

i=l ; 

while  (i<Nr-l  and  h [ i ] [ j ] [ j +Nz ] <0 )  i++; 
while  ( i<Nr-l  and  h [ i ]  [ j ]  [ j +Nz ] >=0 )  i++; 

if(i<Nr)  Inverse[j]  =  r[i]; 
else  Inverse[j]  =  r[Nr-l]; 

} 

for  ( j=0; j<Nz; j++)  { 
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if(j>Nz/2)  {  Inverse2 [ j ] =Inverse2 [Nz- j ] ;  continue;  } 
k=j  ; 

while  (k<Nz-l  and  h[0] [j] [k+Nz]<0)  k++; 
while  (k<Nz-l  and  h[0] [j] [k+Nz]>=0)  k++; 
if(k<Nz)  Inverse2[j]  =  z[k]-z[j]; 
else  Inverse2[j]  =  z  [Nz-1] -z [ j ] ; 


ofstream  datafile; 
char  f ilename [ 70 ] ; 

strcpy (filename, "Data/ " ) ;  s treat (filename,  project);  s treat (filename, "_CorrelationLength . dat " ) ; 
datafile . open (filename, ios : : trunc) ; 

datafile  <<  "#"  <<  setw(29)  <<  "1)  z  (nm) "  <<  setw(30)  <<  "2)  Lambda  parallel*"  <<  setw(30)  <<  "3)  First  zero  parallel  (nm) "; 
datafile  <<  setw(30)  <<  "4)  Wavelength/Lambda  "  <<  "  * (divided  by  the  Debye  length  of  a  homogeneous  system)"  <<  endl; 
for  ( j=0; j<Nz; j++)  { 

datafile  <<  setw(30)  <<  z[j]  <<  setw(30)  <<  Lambda[j]  <<  setw(30)  <<  Inverse[j]  <<  setw(30)  <<  (Inverse [j ]- (ap+am) ) /Lambda [j ] ; 
datafile  <<  setw(30)  <<  Inverse2[j]  <<  setw(30)  <<  (Inverse2 [j ]- (ap+am) ) /Lambda [j ]  <<  endl; 

} 

datafile . close  ( ) ; 

free (Lambda) ;  free ( Inverse) ;  f ree ( Inverse2 ) ; 


void  CoulombFluid: : SymmetrizeFunctions  (int  NzMem)  { 


for  ( j=0; j<Nz; j++)  {  for  (k=0; k<Nz; k++)  {  for  (i=0; i<Nr; i++)  { 

h[i] [Nz-l-j] [k]  =  h[i] [j] [Nz-l-k] ; 
h [ i ] [2*Nz-l- j ] [k]  =  h [ i ] [j] [2*Nz-l-k] ; 
h[i] [2*Nz-l-j] [k+Nz]  =  h [i] [ j+Nz] [2*Nz-l-k] ; 
h[i] [Nz-l-j] [Nz-l-k]  =  h[i] [j] [k]; 
h[i]  [2*Nz-l-j]  [2*Nz-l-k]  =  h  [  i ]  [Nz  + j ]  [Nz  +  k] ; 
c[i] [Nz-l-j] [k]  =  c[i] [j] [Nz-l-k] ; 
c[i] [Nz-l-j] [Nz-l-k]  =  c [i] [ j ] [k] ; 

}  } 

n [Nz-1- j ] =n [j];  n[2*Nz-l-j] =n [Nz+j ] ; 
cp [Nz-l-j ] =cp [j];  cm [Nz-l-j] =cm[ j ] ; 

} 

for  ( j=0; j<2*Nz; j++)  {  for  (k=0; k<2*Nz; k++)  {  for  (i=0; i<Nr; i++)  { 

h [i]  [ j ]  [k]  =  c[i][j][k]  =  Qs  [ i ]  [ j ]  [ k]  =  u [i]  [ j ]  [k]  =  uHT [i]  [ j ]  [k]  =  uReg [ i ]  [ j ]  [ k]  =  uRegHT [ i ]  [ j ]  [ k]  =  0.0; 

}  }  } 

for  ( j=0; j<Nz; j++)  { 

cp [ j ] =csl*exp (-Vextp [ j ] ) ;  cm[ j ] =csl*qp/qm*exp (-Vextm[ j ] ) ; 
n [ j ] =cp [ j ] *dz [ j ] ;  n [Nz+j ] =cm[ j ] *dz [ j ] ; 


} 


} 

void  CoulombFluid :: Iterate ( )  { 


time_t  start, end; 
int  Time [3]; 
time  (Sstart); 

bool  append=true; 

Inf ormationFile (AskQuestion) ; 

cout  <<  "\n\n  ***  Begin  of  iteration  ***  \n\n"  <<  endl; 
correlations  =  false; 


SetGrid2Walls () ; 
SetPairPotential () ; 

CalculateDensity ( 3e4 ) ; 
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RecordProf iles ( ! append) ; 


correlations  =  true; 
SetHankelTransf ormPairPotential () ; 


while  (! convergence)  { 

OZ  HNC  Alternative () ; 
CalculateDensity ( 3e4 ) ; 
RecordProf iles ( ! append) ; 


} 

RecordProf iles ( ! append) ; 

RecordCorrelationFunctions () ; 
time  (Send); 

Time[0]  =  int(difftime  (end, start) /3600 . 0) ;  Time[l]  =  int (int (dif ftime  (end, start) ) %3600/60 . 0) ;  Time [2]  =  int(difftime  (end, start) ) %60; 
RecordTime  (Time) ; 

cout  <<  "\n\n  ***  End  of  iteration  ***  \n\n"  <<  endl; 


void  CoulombFluid : : Iterate2Walls ( )  { 

time_t  start, end; 
int  Time [3] ; 
time  (Sstart); 

bool  append=true; 

Inf ormationFile (AskQuestion) ; 

cout  <<  "\n\n  ***  Begin  of  iteration  ***  \n\n"  <<  endl; 

correlations  =  false; 

depth  =  0*1.5; 

SetGrid2Walls () ; 

SetPairPotential2Walls () ; 

CalculateDensity ( 3e4 ) ; 

RecordProf iles ( ! append) ; 


correlations  =  true; 

EvaluateReservoirMuEx ( 1 ) ; 

while  (! convergence)  { 

OZ  HNC  Alternative () ; 
CalculateDensity ( 3e4 ) ; 
RecordProf iles ( ! append) ; 


} 

RecordCorrelationFunctions () ; 

RecordTestfunctions () ; 
time  (Send); 

Time[0]  =  int(difftime  (end, start) /3600 . 0) ;  Time[l]  =  int (int (dif ftime  (end,  start) ) %3600/60 . 0) ;  Time [2]  =  int(difftime  (end,  start) ) %60; 
RecordTime  (Time) ; 

cout  <<  "\n\n  ***  End  of  iteration  ***  \n\n"  <<  endl; 


void  CoulombFluid :: Iterate2DielectricWalls ( )  { 

time__t  start,  end; 
int  Time [3],  write=0; 
time  (Sstart); 

bool  append=true; 
double  precision  =  le-3; 

Inf ormationFile (AskQuestion)  ; 

cout  <<  "\n\n  ***  Begin  of  iteration  ***  \n\n"  <<  endl; 
correlations  =  false; 

GridCutoff  =  1.7;  Htot  =  3.0; 

depth  =0.0;  Lw  =  0.0;  H= (Htot-GridCutof f *ap) *kappal ; 


SetGrid2Walls () ; 

SetPairPotential2DielectricWalls () ; 


CalculateDensity ( 7e4 ) ; 
RecordProf iles ( ! append) ; 


correlations  =  true; 


while  (! convergence)  { 

OZ  AHNC  AdaptiveFinder (precision) ;  GnuplotCorrelationFunctions ( ) ; 
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CalculateDensity ( 7e4 ) ; 


RecordProf iles ( ! append) ; 


if (write%10  ==  0)  {  RecordCorrelationFunctions ( ) ; } 

write++; 

cout  <<  "\n\nNext  iteration  of  \""  <<  project  <<  "\"\n"  <<  endl; 


} 

RecordCorrelationFunctions () ; 

RecordTestfunctions () ; 
time  (Send); 

Time[0]  =  int(difftime  (end, start) /3600 . 0) ;  Time[l]  =  int (int (dif ftime  (end, start) ) %3600/60 . 0) ;  Time [2]  =  int(difftime  (end, start) ) %60; 
RecordTime  (Time) ; 

cout  <<  "\n\n  ***  End  of  iteration  ***  \n\n"  <<  endl; 
wait_f or_key ( ) ;  wait_f or_key ( ) ; 


void  CoulombFluid : : Iterate2WallslDielectric ( )  { 

time_t  start, end; 
int  Time [3],  t0=l,tm; 
time  (Sstart); 

bool  append=true; 
double  precision  =  le-3; 


depth  =  0.0;  Lw  =  0.0;  H= (3.0-1 .7 *ap) * kappa 1; 
temp  =  tO;  ResetValues () ; 

Inf ormationFile (AskQuestion) ; 

cout  <<  "\n\n  ***  Begin  of  iteration  ***  \n\n"  <<  endl; 
correlations  =  false; 


SetGrid2Walls () ; 

SetPairPotential2DielectricWalls () ; 

CalculateDensity ( 3e4 ) ; 

RecordProf iles ( ! append) ; 


correlations  =  true; 


for  (tm=0; tm<t0; tm++)  { 

convergence  =  false;  evaluations  =  0; 
temp  =  t0/(tm+1.0); 

if  (temp  >  1.0)  cout  <<  "\n\n| |  Temperature  raised  by  a  factor  of  "  <<  temp  <<  "  | |"  <<  endl; 
if  (temp  ==1.0)  {  cout  <<  "Room  temperature"  <<  endl;  precision  *=  le-1;  } 
if  (tm>0)  cout  <<  "\nCooled  down  by  a  factor  of  "  <<  (tm+2.0)/ (tm+1.0)  <<  endl; 
cout  <<  "tm  =  "  <<  tm  <<  endl; 

ResetValues () ; 

SetGrid2Walls () ; 

SetPairPotential2DielectricWalls () ; 


Inf ormationFile ( ! AskQuestion) ; 
while  (! convergence)  { 


OZ  AHNC  AdaptiveFinder(precision); 
CalculateDensity ( 3e4 ) ;  if  (Singularities)  break; 
RecordProf iles ( ! append) ; 


} 

if  (Singularities)  break; 

} 

if  (! Singularities )  { 

RecordProf iles ( ! append) ; 

RecordCorrelationFunctions () ; 

} 

time  (Send); 

Time[0]  =  int(difftime  (end, start) /3600 . 0) ;  Time[l]  =  int (int (dif ftime  (end, start) ) %3600/60 . 0) ;  Time [2]  =  int(difftime  (end, start) ) %60; 
RecordTime  (Time) ; 

if  (Singularities)  cout  <<  "\n\n  ***  End  of  iteration  because  of  singularities  ***  \n\n"  <<  endl; 
else  cout  <<  "\n\n  ***  End  of  iteration  ***  \n\n"  <<  endl; 


void  CoulombFluid :: Iterate2WallSession ( )  { 

time_t  start, end; 

int  Time [3],  NzMem,  NzMem2,  NfSteps=30; 
time  (Sstart); 
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bool  append=true; 
double  precision  =  le-3; 

Lw=2 . 0 ; 

HO  =  H  =  2.0; 

N  zMem  =  N  z ; 

Inf ormationFile (AskQuestion) ; 

cout  <<  "\n\n  ***  Begin  of  iteration  ***  \n\n"  <<  endl; 
correlations  =  false; 
depth  =  1.3; 

SetGrid2WallSession (NzMem) ; 

SetPairPotential2Walls () ; 

CalculateDensity ( 3e4 ) ; 

RecordProf iles ( ! append) ; 

correlations  =  true; 

EvaluateReservoirMuEx ( 1 )  ; 

while  (nf  <  Nf)  { 

evaluations  =  0;  convergence  =  false; 

H  =  HO  -  ( (nf%NfSteps) * (HO-2 . 0*kappal) / (NfSteps*l . 0-1 . 0) ) ; 
NzMem2=Nz ; 

if  (nf%NfSteps  ==  0  and  nf  !=0)  { 

Nz  =  NzMem; 
depth  +=  0.2; 
correlations  =  false; 

SetGrid2WallSession (NzMem) ; 

SetPairPotential2Walls () ; 

CalculateDensity ( 3e4 ) ; 


correlations  =  true; 

EvaluateReservoirMuEx ( 1 ) ; 

} 

cout  <<  "\nH  =  "  <<  H/kappal  <<  "  nm,  and  nf  =  "  <<  nf  <<  endl; 

SetGrid2WallSession (NzMem) ; 

SetPairPotential2Walls () ; 


SymmetrizeFunctions (NzMem2) ; 


CalculateDensity ( 3e4 ) ; 
while  (! convergence)  { 


OZ  AHNC  AdaptiveFinder (precision) ; 

CalculateDensity ( 3e4 ) ; 

if  (nf==0)  {  RecordFreeEnergy (! append) ;  RecordProf iles (! append) ;  } 


if  (nf==0)  { 

NzMem2  =  Nz;  for  ( j=Nz; j<NzMem; j++)  {  z[j]  =  z[Nz-l];  n[j]  =  n[Nz-l];  n[j+Nz]  =  n[2*Nz-l];  cp[j]  =  cp[Nz-l];  cm[j] 

RecordProf iles ( ! append) ; 

Nz  =  NzMem2; 

}  else  { 

NzMem2  =  Nz;  for  ( j=Nz; j<NzMem; j++)  {  z[j]  =  z[Nz-l];  n[j]  =  n[Nz-l];  n[j+Nz]  =  n[2*Nz-l];  cp[j]  =  cp[Nz-l];  cm[j] 

RecordProf iles (append) ; 

Nz  =  NzMem2; 

} 

RecordCorrelationFunctions () ; 

CalculateFreeEnergy ( ) ; 

RecordFreeEnergy (append) ; 


cm[Nz-l] ;  phi[j]  =  phi[Nz-l];  }  Nz=NzMem 


cm[Nz-l] ;  phi[j]  =  phi[Nz-l];  }  Nz=NzMem 


}  /*end  of  'while'  loop*/ 
time  (Send); 

Time[0]  =  int(difftime  (end, start) /3600 . 0) ;  Time[l]  =  int (int (dif ftime  (end,  start)  ) %3600/60 . 0) ;  Time [2]  =  int(difftime  (end, start) ) %60; 
RecordTime  (Time) ; 

cout  <<  "\n\n  ***  End  of  iteration  ***  \n\n"  <<  endl; 


void  CoulombFluid : : Iterate2DielectricWallSession ( )  { 

time_t  start, end; 

int  Time [3],  NzMem,  NzMem2,  NfSteps=Nf; 
time  (Sstart); 

bool  append=true; 

double  LDNA,  precision  =  le-4,elnit; 


Lw=0 . 0 ; 

LDNA  =  1.0;  sn  jth  of  DNA  chain  in  nm 

alpha  =  0.001; 
sigmaDNA  =  -0.01; 

GridCutoff  =  2.0; 

Htot  =  3 . 0+ (2 . 0*ap+l . 0*LDNA) *kappal;  HO  =  H  =  (Htot-GridCutof f *ap) *kappal ; 
N  zMem  =  Nz; 
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Inf ormationFile (AskQuestion)  ; 


cout  <<  "\n\n  ***  Begin  of  iteration  ***  \n\n"  <<  endl; 
correlations  =  false; 
depth  =  0.0; 

SetGrid2 Walls () ;  SetQDNA (LDNA) ; 

SetRegularizedPairPotential2DielectricWalls () ; 
CalculateDensity ( 5e4 ) ; 

RecordProf iles ( ! append) ; 

correlations  =  true; 


EvaluateReservoirMuEx ( 1 ) ; 
while  (nf  <  Nf)  { 

evaluations  =  0;  convergence  =  false; 


H  =  HO  -  ( (nf%Nf Steps) * (HO-LDNA) / (NfSteps*l . 0) ) ; 
NzMem2=Nz ; 

if  (nf%NfSteps  ==  0  and  nf  !=0)  { 

Nz  =  NzMem; 

e2  *=  ew/elnit;  e3=e2; 

if  (e2>ew*ew/elnit)  {  e2  =  elnit;  e3  =  ew*ew/elnit;  } 
correlations  =  false; 


SetGrid2 Walls () ;  SetQDNA (LDNA) ; 


SetRegularizedPairPotential2DielectricWalls ()  ; 
CalculateDensity ( 5e4 ) ; 


correlations  =  true; 

} 


cout  <<  "\nH  =  "  <<  H/kappal  <<  "  nm,  and  nf  =  "  <<  nf  <<  endl; 
SetGrid2 Walls () ;  SetQDNA (LDNA) ; 

SetRegularizedPairPotential2DielectricWalls () ; 


CalculateDensity ( 5e4 ) ; 


while  (! convergence)  { 


OZ  AHNC  AdaptiveFinder (precision) ; 

CalculateDensity ( 5e4 ) ; 

if  (nf==0)  {  RecordFreeEnergy (! append) ;  RecordProf iles (! append) ;  } 

RecordTemporaryProf iles () ; 


if  (nf ==0 )  { 


NzMem2  =  Nz;  for  ( j=Nz; j<NzMem; j++)  {  z[j] 

RecordProf iles ( ! append) ; 

Nz  =  NzMem2; 

=  z [Nz-1 ] ; 

:  n [ j ]  =  n [Nz-1] ; 

n [ j  +Nz ] 

=  n [2*Nz-l] ;  cp [ j ] 

=  cp [Nz-1] ;  cm[ j ] 

=  cm [Nz-1] ; 

phi 

[j] 

=  phi [Nz-1];  }  Nz=NzMem 

}  else  { 

NzMem2  =  Nz;  for  ( j=Nz; j<NzMem; j++)  {  z[j] 

=  z [Nz-1 ] ; 

:  n [ j ]  =  n [Nz-1] ; 

n [ j  +Nz ] 

=  n [2*Nz-l] ;  cp [ j ] 

=  cp [Nz-1] ;  cm[ j ] 

=  cm [Nz-1] ; 

phi 

[j] 

=  phi [Nz-1];  }  Nz=NzMem 

RecordProf iles (append) ; 

N  z  =  N  zMem2 ; 

} 

RecordCorrelationFunctions  () ; 
CalculateFreeEnergy ( ) ; 
RecordFreeEnergy (append) ; 

nf++; 


}  /*end  of  'while'  loop*/ 
time  (Send); 

Time[0]  =  int(difftime  (end, start) /3600 . 0) ;  Time[l]  =  int (int (dif ftime  (end, start) ) %3600/60 . 0) ;  Time [2]  =  int(difftime  (end, start) ) %60; 
RecordTime  (Time) ; 

cout  <<  "\n\n  ***  End  of  iteration  ***  \n\n"  <<  endl; 

} 

void  CoulombFluid :: RecordProf iles (bool  append)  { 

ofstream  datafile; 
char  filename[90]; 

strcpy (filename, "Data/" ) ;  strcat (filename,  project);  strcat ( filename, "_Profiles.dat"); 
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if  (! append)  { 


datafile . open (filename, ios : : trunc) ; 

datafile  <<  "#"  <<  setw(13)  <<  "1)  z  (nm) "  <<  setw(14)  <<  "2)  np  (nmA-2) "  <<  setw(14)  <<  "3)  nm  (nmA-2)"  <<  setw(14)  <<  "4)  cpMF  (M) "  <<  setw(14)  <<  "5)  cmMF  (M) 
for  ( j  =0 ; j <Nz ; j  ++)  { 

datafile  <<  setw(14)  <<  z[j]  <<  setw(14)  <<  n[j]/NA  <<  setw(14)  <<  n[j+Nz]/NA  <<  setw(14)  <<  cpMF[j]/NA  <<  setw(14)  <<  cmMF[j]/NA; 

datafile  <<  setw(14)  <<  cp[j]/NA  <<  setw(14)  <<  cm[j]/NA  <<  setw(14)  <<  phiAN [ j ] *kB*T/e*1000  <<  setw(14)  <<  phi [ j ] *kB*T/e*1000  <<  setw(14)  <<  muexpfj]; 

datafile  <<  setw(14)  <<  muexm[j]  <<  setw(14)  <<  Vextp[j]  <<  setw(14)  <<  Vextm[j]  <<  setw(14)  <<  h[0] [j] [0]  <<  setw(14)  <<  h[0] [j] [Nz/2]; 

datafile  <<  setw(14)  <<  c[0] [j] [0]  <<  setw(14)  <<  c[0] [j] [Nz/2]; 

if (j<Nr)  datafile  <<  setw(14)  <<  y [ j ] [Nz/2] [Nz/2]  <<  setw(14)  <<  u[j] [Nz/2] [Nz/2]  <<  setw(14)  <<  uReg[j] [Nz/2] [Nz/2]  <<  endl; 
else  datafile  <<  setw(14)  <<  y[Nr-l] [Nz/2] [Nz/2]  <<  setw(14)  <<  u[Nr-l] [Nz/2] [Nz/2]  <<  setw(14)  <<  uReg[Nr-l] [Nz/2] [Nz/2]  <<  endl; 

} 

datafile . close  ( )  ; 

}  else  { 

datafile . open (filename, ios : : app) ; 
for  ( j=0; j<Nz; j++)  { 

datafile  <<  setw(14)  <<  z [ j ]  <<  setw(14)  <<  n[j]/NA  <<  setw(14)  <<  n[j+Nz]/NA  <<  setw(14)  <<  cpMF[j]/NA  <<  setw(14)  <<  cmMF[j]/NA; 

datafile  <<  setw(14)  <<  cp[j]/NA  <<  setw(14)  <<  cm[j]/NA  <<  setw(14)  <<  phiAN [j ] *kB*T/e*1000  <<  setw(14)  <<  phi [ j ] *kB*T/e*1000  <<  setw(14)  <<  muexpfj]; 

datafile  <<  setw(14)  <<  muexmfj]  <<  setw(14)  <<  Vextp[j]  <<  setw(14)  <<  Vextmfj]  <<  setw(14)  <<  h[0] [j] [0]  <<  setw(14)  <<  h[0] [j] [Nz/2]; 

datafile  <<  setw(14)  <<  c[0] [j] [0]  <<  setw(14)  <<  c[0] [j] [Nz/2]; 

if (j<Nr)  datafile  <<  setw(14)  <<  y [ j ] [Nz/2] [Nz/2]  <<  setw(14)  <<  u[j] [Nz/2] [Nz/2]  <<  setw(14)  <<  uReg[j] [Nz/2] [Nz/2]  <<  endl; 
else  datafile  <<  setw(14)  <<  y[Nr-l] [Nz/2] [Nz/2]  <<  setw(14)  <<  u[Nr-l] [Nz/2] [Nz/2]  <<  setw(14)  <<  uReg[Nr-l] [Nz/2] [Nz/2]  <<  endl; 

} 

datafile . close  ( )  ; 


void  CoulombFluid : : RecordTemporaryProf iles ( )  { 

ofstream  datafile; 
char  f ilename [ 90 ] ; 

strcpy (filename, "Data/ " ) ;  s treat (filename,  project) ;  s treat (filename, "_Tempor ary Prof iles . dat" ) ; 
datafile . open (filename, ios : : trunc) ; 

datafile  <<  "#"  <<  setw(13)  <<  "1)  z  (nm) "  <<  setw(14)  <<  "2)  np  (nmA-2)"  <<  setw(14)  <<  "3)  nm  (nmA-2)"  <<  setw(14)  <<  "4)  cpMF  (M) "  <<  setw(14)  <<  "5)  cmMF  (M) " 
for  ( j=0; j<Nz; j++)  { 

datafile  <<  setw(14)  <<  z [ j ]  <<  setw(14)  <<  n[j]/NA  <<  setw(14)  <<  n[j+Nz]/NA  <<  setw(14)  <<  cpMF[j]/NA  <<  setw(14)  <<  cmMF[j]/NA; 

datafile  <<  setw(14)  <<  cp[j]/NA  <<  setw(14)  <<  cm[j]/NA  <<  setw(14)  <<  phiAN [j ] *kB*T/e*1000  <<  setw(14)  <<  phi [ j ] *kB*T/e*1000  <<  setw(14)  <<  muexpfj]; 

datafile  <<  setw(14)  <<  muexm[j]  <<  setw(14)  <<  Vextp[j]  <<  setw(14)  <<  Vextm[j]  <<  setw(14)  <<  h[0] [j] [0]  <<  setw(14)  <<  h[0] [j] [Nz/2]; 

datafile  <<  setw(14)  <<  c[0] [j] [0]  <<  setw(14)  <<  c[0] [j] [Nz/2]; 

if (j<Nr)  datafile  <<  setw(14)  <<  y [ j ] [Nz/2] [Nz/2]  <<  setw(14)  <<  u[j] [Nz/2] [Nz/2]  <<  setw(14)  <<  uReg[j] [Nz/2] [Nz/2]  <<  endl; 
else  datafile  <<  setw(14)  <<  y[Nr-l] [Nz/2] [Nz/2]  <<  setw(14)  <<  u[Nr-l] [Nz/2] [Nz/2]  <<  setw(14)  <<  uReg[Nr-l] [Nz/2] [Nz/2]  <<  endl; 

} 

datafile . close  ( ) ; 


} 


void  CoulombFluid :: RecordSnapShot ( )  { 

double  *x,*y,*zpos,  Area,  norml,  norm2; 
gsl  rng  *  r; 

int  Npsim,  Nplus,  Nmin,  n,  *type; 
const  gsl_rng_type  *  Type; 
ofstream  datafile; 
char  f ilename [ 70 ] ; 

Npsim  =  200; 

x  =  (double*)  calloc  (4*Npsim, sizeof (double) ) ;  y  =  (double*)  calloc  (4*Npsim, sizeof (double) ) ;  zpos  =  (double*)  calloc  (4*Npsim, sizeof (double) ) ; 
type  =  (int*)  calloc  (4*Npsim, sizeof (int) ) ; 

norml  =  0;  norm2  =  0; 

for  ( j=0; j<Nz; j++)  {  norml  +=  dz[j];  norm2  +=  cp[j]*dz[j];  } 

Area  =  Npsim/ (norm2) ; 


gsl_rng_env_setup ( ) ; 

Type  =  gsl_rng_default; 
r  =  gsl_rng_alloc  (Type) ; 

n=0  ; 

for  ( j=0; j<Nz; j++)  { 

for  (i=0; i<cp [ j ] *dz [ j ] *Area; i++)  { 

x[n]  =  gsl  rng  uniform  pos  (r)  *  sqrt (Area) ; 

y[n]  =  gsl  rng  uniform  pos  (r)  *  sqrt (Area) ; 

zpos [n]  =  gsl_rng_unif orm_pos  (r)  *  dz [ j ]  +  z [ j ] ; 
type [n]  =  j ; 
n++ ; 

if  (n>=2*Npsim)  {cout  <<  "Alert:  number  of  points  exceeds  reserved  memory."  <<  endl;  n--; } 

} 

} 

Nplus  =  n; 

for  ( j=0; j<Nz; j++)  { 

for  (i=0; i<cm[ j ] *dz [ j ] *Area; i++)  { 

x[n]  =  gsl  rng  uniform  pos  (r)  *  sqrt (Area) ; 

y[n]  =  gsl  rng  uniform  pos  (r)  *  sqrt (Area) ; 

zpos [n]  =  gsl_rng_unif orm_pos  (r)  *  dz[j]  +  z[j]; 
type [n]  =  j ; 
n++ ; 

if  (n>=4*Npsim)  {cout  <<  "Alert:  number  of  points  exceeds  reserved  memory."  <<  endl;  n--; } 

} 

} 

Nmin  =  n; 

printf  ("Random  number  generator  type:  %s\n",  gsl  rng  name  (r) ) ; 
printf  ("seed  =  %lu\n",  gsl_rng_default_seed) ; 
printf  ("first  value  =  %f\n",  gsl  rng  uniform  pos  (r) ) ; 
printf  ("second  value  =  %f\n",  gsl  rng  uniform  pos  (r) ) ; 
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strcpy (filename, "Data/ " ) ;  s treat (filename,  project);  s treat (filename, "_Pseudo Snap Shot . dump" ) ; 
datafile . open (filename, ios : : trunc) ; 


datafile  «  "ITEM:  TIMESTEP"  «  endl; 
datafile  <<  "1"  <<  endl; 

datafile  «  "ITEM:  NUMBER  OF  ATOMS"  «  endl; 
datafile  <<  Nmin-1  <<  endl; 
datafile  «  "ITEM:  BOX  BOUNDS"  «  endl; 
datafile  <<  0  <<  "  "  <<  sqrt (Area)  <<  endl; 

datafile  <<  0  <<  "  "  <<  sqrt (Area)  <<  endl; 

datafile  <<  z[0]  <<  "  "  <<  z[Nz-l]  <<  endl; 

datafile  <<  "ITEM:  ATOMS  id  type  xs  ys  zs"  <<  endl; 


for  ( j=0; j<Nplus; j ++)  { 

datafile  <<  j  <<  "  "  <<  1.5  +  0 . 5*fabs (zpos [ j ] ) /zpos [ j ]  <<  "  "  <<  x[j]  <<  "  "  <<  y[j]  <<  "  "  <<  zpos[j]  <<  endl; 

} 

for  ( j=Nplus; j<Nmin; j++)  { 

datafile  <<  j  <<  "  "  <<  3.5  +  0 . 5*fabs (zpos [j ]) /zpos [j ]  <<  "  "  <<  x[j]  <<  "  "  <<  y [ j ]  <<  "  "  <<  zpos[j]  <<  endl; 

} 

datafile . close  ( ) ; 


strcpy (filename, "Data/ " ) ;  s treat (filename,  project);  s treat (filename, "_Pseudo Snap Shot .mo 12 " ) ; 

datafile . open (filename, ios : : trunc) ; 

datafile  «  "@<TRIPOS>MOLECULE"  «  endl; 
datafile  <<  "system"  <<  endl; 
datafile  <<  Nmin-1  <<  "  0"  <<  endl; 
datafile  «  "@<TRIP0S>AT0M"  «  endl; 


for  ( j=0; j<Nplus; j ++)  { 

datafile  <<  j  <<  "  N"  <<  j  <<  "  "  <<  x[j]  <<  "  "  <<  y [ j ]  <<  "  "  <<  zpos[j]  <<  "  C.l  "  <<  type[j]  <<  endl; 

} 

for  ( j=Nplus; j<Nmin; j++)  { 

datafile  <<  j  <<  "  N"  <<  j  <<  "  "  <<  x[j]  <<  "  "  <<  y [ j ]  <<  "  "  <<  zpos[j]  <<  "  C.l  "  <<  type[j]  <<  endl; 

} 

datafile  «  "@<TRIP0S>B0ND"  «  endl; 
datafile . close  ( ) ; 

gsl_rng_free  (r) ;  free  (x) ;  free  (y) ;  free  (zpos); 


} 

void  CoulombFluid : : RecordCorrelationFunctions ( )  { 

ofstream  datafile; 
char  f ilename [ 70 ] ; 

strcpy (filename, "Data/ " ) ;  s treat (filename,  pro j ect ) ;  s treat (filename, "_CorrelationFunct ions Int . dat" ) ; 

for  (i=0; i<Nr; i++)  {  for  ( j=0; j<2*Nz; j++)  {for  (k=0; k<2*Nz; k++)  { 

if  (Qs [i] [ j ] [k] ! =0 . 0)  h [i] [ j ] [k]  =  -1.0  +  le-10; 

}  }  } 


datafile . open (filename, ios : : trunc) ; 


<<  setw(19) 

« 

« 

« 

« 

« 

{ 


datafile  << 
datafile  <<  setw(20) 
datafile  <<  setw(20) 
datafile  <<  setw(20) 
datafile  <<  setw(20) 
datafile  <<  setw(20) 
for  ( i=Nr-l ; i>=0 ; i-- ) 
datafile  <<  setw(20) 
datafile  <<  setw(20) 
datafile  <<  setw(20) 
datafile  <<  setw(20) 
datafile  <<  setw(20) 
datafile  <<  setw(20) 
datafile  <<  setw(20) 
datafile  <<  setw(20) 


« 


'  1 ) 


(nm) "  <<  setw(20)  <<  "2) 


'7)  h+-(zmin)"<<  setw(20)  <<  "8) 
'12)  hMid  phase2"<<  setw(20)  << 
'16)  Qs ( z  int) 


'3)  h++(z  int) "<<  setw(20)  <<  "4)  h+- ( z_ph2 ) "<<  setw(20)  <<  "5)  h+-(z  int) 
c(z  int)"  <<  setw(20)  <<  "9)  hMid  phasel"<<  setw(20)  <<  "10)  cMid  phasel" 
'13)  cMid  phase2"  <<  setw(20)  <<  "14)  uRegHT  +-(k  int)"; 

'17)  (Qs+h) (z  int)"  <<  setw(20)  <<  "18)  QsHT(z  int)"; 


(nm) "  <<  setw(20)  << 

"6)  h++(zmin)"<<  setw(20)  << 

"11)  c(zmin)"  <<  setw(20)  << 

"15)  uHT(kmin)"  <<  setw(20)  <<  "16)  Qs(z  int)"  <<  setw(20)  << 

"19)  h  +-h  -(z  int)"  <<  setw(20)  <<  "20)  rho(z  int)"  <<  setw(20)  <<  "21)  rho(ph2)"  <<  setw(20)  <<  "22)  rho(phl)"; 

"23)  rho(zmin)"  <<  setw(20)  <<  "24)  h  horn"  <<  setw(20)  <<  "25)  h  horn  -  h"  <<  setw(20)  <<  "26)  uReg"  <<  endl; 
for  ( j  =0 ; j  <Nz ; j  ++)  { 

<<  -r[i]  <<  setw(20)  <<  z [ j ]  <<  setw(20)  <<  h[i] [j] [Nz/2]  <<  setw(20)  <<  h[i] [j] [3*Nz/4  +  Nz]  <<  setw(20)  <<  h[i] [j] [3*Nz/2]; 

<<  h[i] [j] [0]  <<  setw(20)  <<  h[i] [j] [Nz]  <<  setw(20)  <<  c[i] [j] [3*Nz/2]  <<  setw(20)  <<  h[i] [j] [Nz/4]  <<  setw(20)  <<  c[i] [j] [Nz];  //10 

«  cm[j]*h[i] [j] [k] -cp [ j ] *h [i] [j] [Nz]  <<  setw(20)  <<  h[i] [j] [3*Nz/4]  <<  setw(20)  <<  cm[j]*(h[i] [j] [3*Nz/4] +1.0) -cp[ j ] * (h[i] [j] [3*Nz/4+Nz] +1 . 0)  <<  setw(20)  <<  uRegHT[i] [j] [Nz/2+3] 
<<  uHT[i] [j] [0]  <<  setw(20)  <<  Qs[i] [j] [Nz/2]  <<  setw(20)  <<  Qs[i] [j] [Nz/2]+h[i] [j] [Nz/2]  <<  setw(20)  <<  QsHT[i] [j] [Nz/2];  //18 
«  h [i] [ j ] [Nz/2 ] -h [i] [ j +Nz] [3*Nz/2 ]  <<  setw(20)  <<  -cp [ j ] * (h [i ] [ j ] [Nz/4 ] +1 . 0) +cm [ j ] * (h [ i] [ j ] [Nz/4+Nz ] +1 . 0 ) ;  '20 

«  -cp[j]*(h[i] [j] [3*Nz/4]+1.0)+cm[j]*(h[i] [j] [3*Nz/4+Nz]+1.0)  «  setw(20)  «  -cp [ j ] * (h [i]  [  j ]  [Nz/2 ] +1 . 0) +cm  [  j ] *  (h  [i]  [  j  ]  [3*Nz/2] +1 . 0)  ; 

<<  -cp[j]*(h[i] [j] [ 0 ] +1 . 0 ) +cm [ j ] * (h [ i ] [j] [Nz]+1.0)  <<  setw(20)  <<  htest[i] [j]  <<  setw(20)  <<  h[i] [j] [3*Nz/2] -Qs [i] [j] [3*Nz/2] -htest [i] [j]; 

<<  uReg[i] [j] [Nz/2]  <<  setw(20)  <<  uRegHT[i] [j] [Nz/2]; 


datafile  <<  endl; 

}  datafile  <<  endl; 

} 

for  (i=0; i<Nr; i++)  {  for  ( j=0; j<Nz; j++)  { 

datafile  <<  setw(20)  <<  r[i]  <<  setw(20)  <<  z [ j ]  <<  setw(20)  <<  h[i] [j] [Nz/2]  <<  setw(20)  <<  h[i] [j] [3*Nz/4  +  Nz]  <<  setw(20)  <<  h[i] [j] [3*Nz/2]; 
datafile  <<  setw(20)  <<  h[i] [j] [0]  <<  setw(20)  <<  h[i] [j] [Nz]  <<  setw(20)  <<  c[i] [j] [3*Nz/2]  <<  setw(20)  <<  h[i] [j] [Nz/4]  <<  setw(20)  <<  c[i] [j] [Nz]; 

datafile  <<  setw(20)  <<  cm[j]*h[i] [j] [k] -cp [ j ] *h [i] [j] [Nz]  <<  setw(20)  <<  h[i] [j] [3*Nz/4]  <<  setw(20)  <<  cm[j]*(h[i] [j] [3*Nz/4] +1 . 0) -cp [ j ] * (h [i] [j] [3*Nz/4+Nz] +1 . 0)  <<  setw(20)  <<  uRegHT[i] [j] [Nz/2+3] 

datafile  <<  setw(20)  <<  uHT[i]  [j]  [0]  <<  setw(20)  <<  Qs[i]  [j]  [Nz/2]  <<  setw(20)  <<  Qs[i]  [j]  [Nz/2]+h[i]  [j]  [Nz/2]  <<  setw(20)  <<  QsHT[i]  [j]  [Nz/2]; 

datafile  <<  setw(20)  <<  h[i]  [ j ]  [Nz/2] -h[i]  [ j+Nz]  [3*Nz/2]  <<  setw(20)  <<  -cp [ j ] *  (h [ i ]  [ j ]  [Nz/4 ] +1 . 0) +cm [ j ] * (h [i ]  [ j ]  [Nz/4+Nz ] +1 . 0 ) ; 

datafile  <<  setw(20)  <<  -cp [ j ] * (h [i] [ j ] [3*Nz/4] +1 . 0) +cm[ j ] * (h [i] [ j ] [3*Nz/4+Nz] +1 . 0)  <<  setw(20)  <<  -cp [ j ] * (h [i] [ j ] [Nz/2] +1 . 0) +cm[ j ] * (h [i] [ j ] [3*Nz/2] +1 . 0) ; 

datafile  <<  setw(20)  <<  -cp[j]*(h[i] [j] [0] +1 . 0) +cm [ j ] * (h [i] [j] [Nz]+1.0)  <<  setw(20)  <<  htest[i] [j]  <<  setw(20)  <<  h[i] [j] [3*Nz/2] -Qs [i] [j] [3*Nz/2] -htest [i] [j]; 

datafile  <<  setw(20)  <<  uReg[i] [j] [Nz/2]  <<  setw(20)  <<  uRegHT[i] [j] [Nz/2]; 

datafile  <<  endl; 

}  datafile  <<  endl; 

} 

datafile . close  ( ) ; 


ResetQs ( ) ; 


} 

void  CoulombFluid :: RecordBulkCorrelationFunctions (double  *sl,  double  *hp,  double  *hm,  double  *hpm,  int  N,  int  medium)  { 

ofstream  datafile; 
char  f ilename [70]; 
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char  *add, solvent [14] ; 
int  length; 


strcpy (filename, "Data/") ;  strcat (filename,  project);  strcat (filename, "  BulkCorrelationFunctions" )  ; 
add  =  strstr  (filename,  "Functions"); 

add  +=  9;  sprintf ( solvent , "_medium_%u . dat" , medium) ;  length  =  sizeof (solvent) /sizeof (char) ;  strncpy  (add, solvent, length+12 ) ; 
datafile . open (filename, ios : : trunc) ; 

datafile  <<  "#  Correlation  functions  in  reservoir  "  <<  medium  <<  endl; 

datafile  <<  "#"  <<  setw(13)  <<  "r  (nm) "  <<  setw(14)  <<  "hp(r)"<<  setw(14)  <<  "hm(r) "  <<  setw(14)  <<  "hpm(r)"<<  endl; 
for  (i=0; i<N; i++)  { 

datafile  <<  setw(14)  <<  sl[i]  <<  setw(14)  <<  hp[i]  <<  setw(14)  <<  hm[i]  <<  setw(14)  <<  hpm[i]  <<  endl; 

} 

datafile . close  ( ) ; 


void  CoulombFluid : : RecordTestfunctions ( )  { 

ofstream  datafile; 
char  filename [70] ; 

strcpy (filename, "Data/" ) ;  strcat (filename,  project);  strcat (filename, "_TestfunctionsPL.dat") ;  /*  "parallel"  */ 
datafile . open (filename, ios : : trunc) ; 

datafile  <<  "#"  <<  setw(13)  <<  "r  (nm) "  <<  setw(14)  <<  "htest"  <<  setw(14)  <<  "hcenterl-"  <<  setw(14)  <<  "hint!-"  <<  setw(14)  <<  "hcenter++"  <<  setw(14)  <<  "hint++"  <<  endl; 
for  (i=0; i<Nr; i++)  { 

datafile  <<  setw(14)  <<  r[i]  <<  setw(14)  <<  htest[i] [Nz/2]  <<  setw(14)  <<  h[i] [3*Nz/2] [Nz/2]-Qs[i] [3*Nz/2] [Nz/2]  <<  setw(14)  <<  h[i] [Nz] [0]-Qs[i] [Nz] [0]  <<  setw(14)  <<  h[i] [Nz/2] [Nz/2]-Qs[i] [Nz/2] [Nz/2]  <<  setw(14)  <<  h[i] [0] [0]-Qs[i] [0] [0]  <<  setw(14)  <<  kappal*r[i]  <<  endl 

} 

datafile . close  ( ) ; 

strcpy (filename, "Data/" ) ;  strcat (filename,  project);  strcat ( filename, "_TestfunctionsPP . dat"  )  ;  '  'perpendicular"  */ 

datafile . open (filename, ios : : trunc) ; 

datafile  <<  "#"  <<  setw(13)  <<  "z  (nm) "  <<  setw(14)  <<  "htest"  <<  setw(14)  <<  "hcenter"  <<  setw(14)  <<  "hint"  <<  endl; 
for  ( j=Nz/2 ; j<Nz ; j  ++)  { 

datafile  <<  setw(14)  <<  z[j]  <<  setw(14)  <<  htest[0]  [j]  <<  setw(14)  <<  h[0]  [3*Nz/2]  [ j ] — Qs [ 0 ]  [3*Nz/2]  [j]  <<  setw(14)  <<  h[0]  [Nz]  [ j -Nz/2 ] -Qs [ 0 ]  [Nz]  [j-Nz/2]  <<  endl; 

} 

datafile . close  ( ) ; 


void  CoulombFluid :: RecordConvolutionFunctions (double  *ThetaConv)  { 

ofstream  datafile; 
char  filename [70] ; 

strcpy (filename, "Data/" ) ;  strcat (filename,  project);  strcat (filename, "  ConvolutionFunctions.dat");  +  "parallel"  */ 
datafile . open (filename, ios : : trunc) ; 

datafile  <<  "#"  <<  setw(13)  <<  "r  (nm) "  <<  setw(14)  <<  "hcenter+-"  <<  setw(14)  <<  "h_conv+~"  <<  setw(14)  <<  "theta"  <<  setw(14)  <<  "theta  conv"  <<  setw(14)  <<  "hmax"  <<  setw(14)  <<  "h  conv  max"  <<  endl; 
for  (i=0; i<Nr; i++)  { 

datafile  <<  setw(14)  <<  r[i]  <<  setw(14)  <<  h[i] [3*Nz/2] [Nz/2]  <<  setw(14)  <<  newg[i] [3*Nz/2] [Nz/2]  <<  setw(14)  <<  Theta[i]  <<  setw(14)  <<  ThetaConv[i]  <<  setw(14)  <<  h[i] [jmax] [kmax]  <<  setw(14)  <<  newg[i] [jmax] [kmax]  <<  endl; 

} 

datafile . close  ( ) ; 


void  CoulombFluid :: RecordTime  (int  *Time)  { 

ofstream  datafile; 
char  filename [50] ; 

strcpy (filename, "Data/" ) ;  strcat (filename,  project);  strcat ( filename, "_Info . dat" ) ; 
datafile . open (filename, ios : : app) ; 

datafile  <<  "\n"  <<  setw(10)  <<  evaluations  <<  setw(40)  <<  "  evaluations  before  convergence . \n"  <<  endl; 

datafile  <<  "\nprogram  ran  for  "  <<  setprecision  (0)  <<  Time[0]  <<  "  hours,  "  <<  Time[l]  <<  "  minutes,  and  "  <<  Time [2]  <<  "  seconds"  <<  endl; 
datafile . close  ( ) ; 

cout  <<  "\nprogram  ran  for  "  <<  setprecision  (0)  <<  Time[0]  <<  "  hours,  "  <<  Time[l]  <<  "  minutes,  and  "  <<  Time [2]  <<  "  seconds"  <<  endl; 


void  CoulombFluid :: RecordFreeEnergy (bool  append)  { 

ofstream  datafile; 
char  f ilename [ 70 ] ; 
int  nnf  =  nf-1; 


strcpy (filename, "Data/ " ) ;  strcat (filename,  project);  strcat (filename, "_FreeEnergy . dat" ) ; 
cout  «  "TEST:  nf  =  "  «  nf  «  endl; 


if  (! append)  { 

datafile . open (filename, ios : : trunc) ; 

datafile  <<  "#"  <<  setw(29)  <<  "1)  H  (1/kappal)"  <<  setw(30)  <<  "2)  Fid  /  kBT"  <<  setw(30)  <<  "3)  Fext  /  kBT"; 

datafile  <<  setw(30)  <<  "4)  Fexc  /  kBT"  <<  setw(30)  <<  "5)  Ftot  /  H  kBT"  <<  setw(30)  <<  "6)  (Ftot-Fb)  /  H  kBT"  <<  setw(30)  <<  "7) 
datafile  <<  setw(30)  <<  "8)  Z1Z1  /  A"  <<  setw(30)  <<  "9)  Z1Z2  /  A"  <<  setw(30)  <<  "10)  Z2Z2-NP-NM/  A"; 
datafile  <<  setw(30)  <<  "11)  N+  /  A"  <<  setw(30)  <<  "12)  N-  /  A"  <<  setw(30)  <<  "13)  Pzz"  <<  endl; 


for  ( j=0; j<nf ; j++)  { 

datafile  <<  setw(30) 
datafile  <<  setw(30) 
datafile  <<  setw(30) 
datafile  <<  setw(30) 
datafile  <<  setw(30) 

} 


<<  Hf[j]*kappal  <<  setw(30)  <<  Fid[j]  <<  setw(30)  <<  Fext[j]  <<  setw(30)  <<  Fexc[j]; 

<<  (Fid [ j ] +Fext [ j ] +Fexc [ j ] ) /Hf [ j ]  <<  setw(30)  <<  (Fid [ j ] +Fext [ j ] +Fexc [ j ] ) /Hf [ j ] - (Fid [0] +Fexc [0] ) /Hf [0] ; 
<<  ( (Fid [ j ] +Fext [ j ] +Fexc [j])/Hf[j]-(Fid[0] +Fexc [0] ) /Hf [ 0 ] ) *Hf [ j ] ; 

<<  ZlZl[j]  +  NP[j]  +  NM[j]  <<  setw(30)  <<  ZlZ2[j]  <<  setw(30)  <<  Z2Z2[j]; 

<<  NP[j]  <<  setw(30)  <<  NM[j]  <<  setw(30)  <<  Pzz[j]  <<  endl; 


}  else  { 

datafile . open (filename, ios : : app) ; 

datafile  <<  setw(30)  <<  Hf [nnf ] *kappal  <<  setw(30)  <<  Fid[nnf]  <<  setw(30)  <<  Fext [nnf]  <<  setw(30)  <<  Fexc [nnf]; 


(Ftot 


Fb)  /  kBT"; 
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datafile  <<  setw(30)  <<  (Fid [nnf ] +Fext [nnf ] +Fexc [nnf ] ) /Hf [nnf ]  <<  setw(30)  <<  (Fid [nnf ] +Fext [nnf ] +Fexc [nnf ] ) /Hf [nnf ] - (Fid [ 0 ] +Fexc [ 0 ] ) /Hf [ 0 ] ; 
datafile  <<  setw(30)  <<  ( (Fid [nnf ] +Fext [nnf ] +Fexc [nnf ] ) /Hf [nnf ] - (Fid [ 0 ] +Fexc [ 0 ] ) /Hf [ 0 ] ) *Hf [nnf ] ; 
datafile  <<  setw(30)  <<  Z1Z1 [nnf ]  +  NP[nnf]  +  NM[nnf]  <<  setw(30)  <<  Z1Z2 [nnf ]  <<  setw(30)  <<  Z2Z2 [nnf ] ; 
datafile  <<  setw(30)  <<  NP[nnf]  <<  setw(30)  <<  NM[nnf]  <<  setw(30)  <<  Pzz [nnf]  <<  endl; 

} 

datafile . close  ( ) ; 


int  test_dht_expl (void)  { 


int  stat  =  0; 
int  n,N=100; 

double  *f  in,  *f  out,  *f  id, *kFT, *xFT, x, k, 1=100 . 0; 
double  Deltal , Delta2 , a, b, sum; 
gsl  dht  *  t  =  gsl  dht  new(N,  0.0,  I); 
ofstream  datafile; 

gsl  dht  *  t2  =  gsl  dht  new(N,  0.0,  gsl  dht  k  sample (t,  N) ) ; 

f_in  =  (double*)  calloc  (N, sizeof (double) ) ; 
f_out  =  (double*)  calloc  (N, sizeof (double) ) ; 
f_id  =  (double*)  calloc  (N, sizeof (double) ) ; 
kFT  =  (double*)  calloc  (N+l , sizeof (double) ) ; 
xFT  =  (double*)  calloc  (N+l , sizeof (double) ) ; 

for  (n=0;n<N+l;n++)  {  kFT[n]  =  gsl  dht  k  sample (t,  n) ;  xFT[n]  =  gsl  dht  x  sample (t,  n) ;  } 

Deltal  =  10.0;  Delta2  =  -5.0;  a  =  20.0;  b  =  gsl_sf_bessel_zero_J0 (N+l) /I/I; 
for(n=0;  n<N;  n++)  { 

x  =  gsl  dht  x  sample  (t,  n)  ;  k  =  gsl  dht  k  sample  (t,  n)  ; 


if  (x  <  a)  f  in[n]  =  Deltal  +  0 . 5* (x*x-a*a) *Delta2 /a;  function" 

} 

gsl_dht_apply (t,  f_in,  f_out) ; 
gsl_dht_apply (t2 ,  f_out,  f_id) ; 

cout  <<  "b  =  "  <<  b  <<  ",  b*I*I/N  =  "  <<  b*I*I/N  <<  "  and  b*I  =  "  <<  b*I  <<  endl; 

cout  <<  "Imax  =  "  <<  xFT[N]  <<  "  and  kmax  =  "  <<  kFT[N]  <<  ".  Ratio  =  "  <<  xFT [N] /kFT [N]  <<  endl; 


sum  =  0; 

for  (n=0;n<N-l;n++)  { 

sum  +=  (f  out[n]*2*pi)  *2*pi*kFT [n] / (2*pi)  *  (kFT [n+l] -kFT [n] ) / (2*pi)  ; 

} 

cout  <<  "f(0)  —  "  «  f  in[0]  <<  "  and  k-integral  gives  "  <<  sum  <<  ".  The  ratio  of  the  two  is  "  <<  sum/f  in[0]  <<  endl; 
sum  =  0; 

for  (n=0;n<N-l;n++)  { 

sum  +=  f  in [n] *2*pi*xFT [n] * (xFT [n] -xFT [n-1] ) ; 

} 

cout  <<  "fFT(0)  =  "  «  f  out[0]*2*pi  <<  "  and  x-integral  gives  "  <<  sum  <<  ".  The  ratio  of  the  two  is  "  <<  sum/f  out[0]  <<  endl; 
sum  =  0; 

for  (n=0;n<N-l;n++)  { 

sum  +=  f  in[n]-f  id[n]; 

} 

cout  <<  "  Total  absolute  difference  after  one  iteration  is  "  <<  sum  <<  endl; 
datafile . open ( "Data/ testdata . dat" ) ; 

datafile  <<  "\n#"  <<  setw(20)  <<  "r"  <<  setw(20)  <<  "k"  <<  setw(20)  <<  "f (r) "  <<  setw(20)  <<  "fDHT(k)"  <<  setw(20)  <<  "fDHTDHT(r)"  <<  endl; 
for  (n=0 ; n<N; n++)  { 

x  =  gsl  dht  x  sample (t,  n) ;  k  =  gsl  dht  k  sample (t,  n) ;  cow (gsl  sf  bessel  zero  J0(N),2.0)*  f  in[n]/f  id[n] 
datafile  <<  setw(20)  <<  x  <<  setw(20)  <<  k  <<  setw(20)  <<  f  in[n]  <<  setw(20)  <<  f  out [n]  <<  setw(20)  <<  f  id[n]; 

datafile  <<  setw(20)  <<  exp(-a*k)/k; 

datafile  <<  setw(20)  <<  a* (Deltal*gsl  sf  bessel_Jl (a*k) /k  -  Delta2*gsl  sf  bessel  Jn (2 , a*k) /k/k) ; 

datafile  <<  setw(20)  <<  5.0  *  gsl  sf  bessel  J1 (5*pi*k) /k  <<  setw(20)  <<  b  <<  setw(20)  <<  f  in[n]/f  out[n]/b  <<  setw(20)  <<  exp(-a*k); 
datafile  <<  endl; 

} 

datafile . close  ( ) ; 


gsl_dht_free (t) ; 
return  stat; 
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} 


void  CoulombFluid : : test_dht_potentials ( )  { 

SetGrid ( ) ; 

SetPairPotential2Walls () ; 

EvaluateReservoirMuEx ( 1 ) ; 

ResetQs ( ) ; 

double  I  =  r [Nr-1 ] ; 

gsl  dht  *  t  =  gsl  dht  new(Nr,  0.0,  I); 

Mat3D_DP  uTestHT; 
double  *uvec,  *uvecHT; 
ofstream  datafile; 
char  f ilename [ 70 ] ; 

uvec  =  (double*)  calloc  (Nr , sizeof (double) ) ;  uvecHT  =  (double*)  calloc  (Nr , sizeof (double) ) ; 

uTestHT .assign (0.0, Nr, 2*Nz,2*Nz) ; 

for  ( j=0; j<2*Nz; j++) {  for  (k=0; k<2*Nz; k++) { 

for  (i=0; i<Nr; i++)  {  uvec [i]  =  u [ i ] [ j ] [ k] *exp ( -3*pow (r [ i ] /r [Nr-1 ] , 2 . 0 ) ) ;  } 
gsl_dht_apply (t,  uvec,  uvecHT); 

for  (i=0; i<Nr; i++)  {  uTestHT [ i ][ j ][ k]  =  uvecHT[i];},  -uHT [i] [j  [k] ; 

}  } 


cout  <<  "(Nr-l)Ath  sample  point  in  r-space  "  <<  gsl  dht  x  sample  (t,Nr-l)  <<  endl; 
cout  <<  "(Nr-l)Ath  sample  point  in  k-space  "  <<  gsl  dht  k  sample  (t,Nr-l)  <<  endl; 
cout  <<  "fraction  "  <<  gsl  dht  x  sample  (t, Nr-1) /gsl  dht  k  sample  (t,Nr-l)  <<  endl; 

strcpy (filename, "Data/") ;  strcat (filename,  project) ;  strcat (filename, "__TestPotential .dat") ; 

datafile . open (filename, ios : : trunc) ; 

datafile  <<  "#"  <<  setw(13)  <<  "r  (nm) "  <<  setw(14)  <<  "u(z  int) "<<  setw(14)  <<  "uHT(z  int) "  <<  setw(14)  <<  "uTestHT (z  int) "  <<  setw(14)  <<  "uMid  phasel"<<  setw(14)  <<  "uHTMid  phasel"  <<  setw(14)  <<  "uTestHTMid  phasel"  <<  endl; 
for  (i=0; i<Nr; i++)  { 

datafile  <<  setw(14)  <<  r[i]/gsl  dht  x  sample  (t,Nr-l)*gsl  dht  k  sample  (t,Nr-l)  <<  setw(14)  <<  Qs[i] [Nz/2] [Nz/2]  <<  setw(14)  <<  QsHT[i] [Nz/2] [Nz/2]  <<  setw(14)  <<  uTestHT[i] [Nz/2] [Nz/2]  <<  setw(14)  <<  u[i] [Nz/4+4] [Nz/4]  <<  setw(14)  <<  uHT[i] [Nz/4+4] [Nz/4]*gsl  dht  k  sample  (t,Nr- 

}  _  " 

da t  af  i  i  o  .  close  ( )  ; 


void  CoulombFluid :: TestReservoir ( )  { 

int  m,M=50; 
ofstream  datafile; 
char  f ilename [ 70 ] ; 

strcpy (filename, "Data/ " ) ;  strcat (filename,  project) ;  strcat (filename, "^Chemical Potentials . dat" ) ; 
datafile . open (filename, ios : : trunc) ; 

datafile  <<  "#"  <<  setw(13)  <<  "csl  (M) "  <<  setw(14)  <<  "mul+  (kT) "  <<  setw(14)  <<  "mul-  (kT) "  <<  setw(14)  <<  "mu2+  (kT) "  <<  setw(14)  <<  "mu2-  (kT)"  <<  endl; 

cout  <<  setw(14)  <<  "csl  (M) "  <<  setw(14)  <<  "mull  (kT) "  <<  setw(14)  <<  "mul-  (kT)"  <<  setw(14)  <<  "mu2+  (kT)"  <<  setw(14)  <<  "mu2-  (kT)"  <<  endl; 

qp  =  2.0; 
qm  =  2.0; 

for  (m=0;m<M;m++)  { 

csl  =  pow (10 . 0, -6 . 0  +  m*5 . 0/ (M-l . 0) ) ; 
kappal  =  sqrt (8*pi*lBl*qp*csl) ; 

cs2  =  qp/qm*csl*exp ( -0 . 25* (qp*qp/ap+qm*qm/am) * ( 1B2-1B1 ) ) ; 
kappa2  =  sqrt (8*pi*lB2*qp*cs2) ; 

EvaluateReservoirMuEx ( 1 ) ; 


datafile  <<  setw(14)  <<  csl  <<  setw(14)  <<  muExlp  <<  setw(14)  <<  muExlm  <<  setw(14)  <<  muEx2p  <<  setw(14)  <<  muEx2m  <<  endl; 
cout  <<  setw(14)  <<  csl  <<  setw(14)  <<  muExlp  <<  setw(14)  <<  muExlm  <<  setw(14)  <<  muEx2p  <<  setw(14)  <<  muEx2m  <<  endl; 


} 

datafile . close  ( ) ; 


void  CoulombFluid :: TestMatrixInversion ( )  { 

Nz  =  12; 

double  sum,det; 

gsl  matrix  *  m  =  gsl  matrix  alloc  (Nz,  Nz),*  mLU  =  gsl  matrix  alloc  (Nz,  Nz),  *  m2  =  gsl  matrix  alloc  (Nz,  Nz),  *  Id  =  gsl  matrix  alloc  (Nz,  Nz); 
gsl  vector  *  hvec  =  gsl  vector  alloc  (Nz) ,  *  cvec  =  gsl  vector  alloc  (Nz) ;  gsl  vector  alloc  (Nz) 

gsl  permutation  *  p  =  gsl  permutation  alloc  (Nz) ; 
int  sign [ 1 ] ; 


for  ( j =0 ; j <Nz ; j ++) {  for  (k=0; k<Nz; k++) {  gsl_matrix_set  (m,  j,  k,  j*Nz+k+l);}} 

for  ( j=0; j<Nz; j++)  {  for  (k=j ; k<Nz; k++)  {  gsl_matrix_set  (m,  j,  k,  gsl_matrix_get (m, k, j ) ) ; } } 


cout  <<  "\nMatrix  M  :\n"  <<  endl; 
for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

cout  <<  setw(10)  <<  gsl  matrix  get (m, j , k) ; 
}  cout  <<  endl;  } 
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gsl  matrix  memcpy (mLU, m) ; 

gsl  linalg  LU  decomp (mLU, p, sign) ; 


cout  <<  "\nLU  decomposition  of  M  :\n"  <<  endl; 
for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

cout  <<  setw(10)  <<  setprecision (2 )  <<  gsl  matrix  get (mLU, j ,  k)  ; 
}  cout  <<  endl;  } 


det  =  gsl  linalg  LU  det (mLU, *sign) ;  cout  <<  "Determinant  of  M  =  "  <<  det  <<  endl; 
for  (k=0; k<Nz; k++) { 

for  ( j=0; j<Nz; j++)  gsl_vector_set  (cvec, j , delta [j ] [k] ) ; 


gsl  linalg  LU  solve (mLU, p, cvec, hvec) ; 

for  ( j=0; j<Nz; j++)  gsl_matrix_set  (m2 , j , k, gsl_vector_get  (hvec,j)); 

} 

for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

if  ( f abs  (gsl_matrix_get  (m2 ,  j  ,  k)  )  <  le-12)  gsl_matrix_set  (m2 ,  j  ,  k,  0 . 0 )  ; 

}  } 

cout  <<  "\nM  inverse  :\n"  <<  endl; 

for  ( j=0; j<Nz; j++)  {  for  (k=0; k<Nz; k++)  { 

cout  <<  setw(10)  <<  setprecision (2 )  <<  gsl  matrix  get(m2,j,k); 

}  cout  <<  endl;  } 

for  ( j=0; j<Nz; j ++) {  for  (k=0; k<Nz; k++) { 

sum  =  0;  for  (i=0; i<Nz; i++)  sum  +=  gsl  matrix  get (m, j , i) *gsl  matrix  get(m2,i,k); 
gsl__matrix_set  ( Id,  j  ,  k,  sum)  ; 

}  } 

cout  <<  "\nM  times  its  inverse  (should  be  the  identity  matrix)  :\n"  <<  endl; 
for  ( j=0; j<Nz; j++) {  for  (k=0; k<Nz; k++) { 

cout  <<  setw(10)  <<  setprecision (2 )  <<  gsl_matrix_get ( Id, j , k) ; 

}  cout  <<  endl;  } 


} 

void  CoulombFluid : : TestConvolution ( ) { 


SetGrid2WallslDielectric ( ) ; 

double  *Ftest, *Fconv, *FtestFTconv, *FtestFT, *Ffinal, *Fdirect, *Aux,  *Fconv2nd, *FconvFT2nd; 
double  I  =  r[Nr-l],b,d,  *ThetaConv,  *ThetaTest,  *ThetaTestFT,  thetaMax, dfactor=4 . 0 ; 
gsl  dht  *  t  =  gsl  dht  new(Nr,  0.0,  I); 
gsl  permutation  *  p  =  gsl  permutation  alloc  (2*Nz) ; 

Ftest  =  (double*)  calloc  (Nr , sizeof (double) ) ;  Fconv  =  (double*)  calloc  (Nr , sizeof (double) ) ;  FtestFTconv  =  (double*)  calloc  (Nr , sizeof (double) ) ; 
FtestFT  =  (double*)  calloc  (Nr , sizeof (double) ) ;  Ffinal  =  (double*)  calloc  (Nr , sizeof (double) ) ;  Fdirect  =  (double*)  calloc  (Nr , sizeof (double) ) ; 

Aux  =  (double*)  calloc  (Nr, sizeof (double) ) ;  Fconv2nd  =  (double*)  calloc  (Nr , sizeof (double) ) ;  FconvFT2nd  =  (double*)  calloc  (Nr, sizeof (double) ) ; 
ThetaConv  =  (double*)  calloc  (Nr , sizeof (double) ) ;  ThetaTest  =  (double*)  calloc  (Nr , sizeof (double) ) ;  ThetaTestFT  =  (double*)  calloc  (Nr , sizeof (double) ) ; 

b  =  gsl_sf_bessel_zero_JO (Nr+1) /I/I; 


i=0;  while  (r [i] <I/dfactor)  i++;  j=i-l; 
for  (i=0; i<Nr; i++)  { 

if  (r[i]>2*ap)  Ftest[i]  =  8*exp (- (r [i] -2*ap) *25 . 0/ (r [Nr-1] -2*ap) )  ; 


if  ( r [ i ] <period)  ThetaTest [ i ] =1 . 0 ; 

} 


for  (i=l;i<Nr;i++)  { 

Fconv [i]  =  0; 

for  ( j  =1 ; j <Nr ;  j++)  { 

d  =  period*period  -  pow (r [ j ] -r [i] , 2 . 0) ; 

if  (  period*period  -  pow (r [ j ] +r [i] , 2 . 0)  >  0  )  thetaMax  =  2*pi;  else  thetaMax  =  2*acos (  1.0  -  d/ (2 . 0*r [ j ] *r [i] )  ); 

if  (d>0)  Fconv[i]  +=  (r [ j ] -r [ j -1 ] ) *r [ j ] *Ftest [ j ] *thetaMax; 

} 

} 

Fconv [0]  =  Fconv [1]; 

gsl_dht_apply (t.  Theta,  ThetaConv);  for  (i=0; i<Nr; i++)  ThetaConv[i]  *=  b*b/(2*pi); 
gsl_dht_apply (t,  Fconv,  FtestFTconv);  for  (i=0; i<Nr; i++)  FtestFTconv [ i ]  *=  2*pi; 

for  (i=0; i<Nr; i++)  {  FtestFT [i]  =  FtestFTconv [ i ] /Theta [ i ] ;  } 

gsl_dht_apply (t,  FtestFT,  Ffinal);  for  (i=0; i<Nr; i++)  Ffinal [i]  *=  b*b/(2*pi); 

gsl_dht_apply (t,  Ftest,  Aux);  for  (i=0; i<Nr; i++)  Aux[i]  *=  2*pi; 
gsl_dht_apply (t,  Aux,  Fdirect);  for  (i=0; i<Nr; i++)  Fdirect [i]  *=  b*b/ (2*pi) ; 
gsl_dht_apply (t,  ThetaTest,  ThetaTestFT);  for  (i=0; i<Nr; i++)  ThetaTestFT [ i ]  *=  2*pi; 

for  (i=0; i<Nr; i++)  {  FconvFT2nd [ i ]  =  Aux [ i ] *Theta [ i ] ;  } 

gsl  dht  apply (t,  FconvFT2nd,  Fconv2nd) ;  for  (i=0; i<Nr; i++)  Fconv2nd[i]  *=  b*b/ (2*pi); 
ofstream  datafile; 
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char  f ilename [ 70 ] ; 


strcpy (filename, "Data/") ;  strcat (filename,  project) ;  strcat (filename, "_TestConvolution .dat") ; 


datafile . open (filename, ios : : trunc) ; 

datafile  <<  "#"  <<  setw(29)  <<  "1)  r"  <<  setw(30)  <<  "2)  k"  <<  setw(30)  <<  "3)  Ftest(r)"  <<  setw(30)  <<  "4)  Fconv(r) "  <<  setw(30)  <<  "5)  FtestFTconv ( k) 

datafile  <<  setw(30)  <<  "6)  FtestFT(k)"  <<  setw(30)  <<  "7)  Ffinal(r)"  <<  setw(30)  <<  "8)  Theta_d(r)"  <<  setw(30)  <<  "9)  Theta_dFT ( k) " ; 

datafile  <<  setw(30)  <<  "10)  ThetaTest (r) "  <<  setw(30)  <<  "11)  ThetaTestFT ( k) "  <<  setw(30)  <<  "12)  Fdirect(r)"  <<  setw(30)  <<  "13)  Aux(k)"; 

datafile  <<  setw(30)  <<  "14)  Fconv2nd(r)"  <<  setw(30)  <<  "15)  FconvFT2nd ( k) "  <<  endl; 

for  (i=0; i<Nr; i++)  { 


datafile  <<  setw(30) 
datafile  <<  setw(30) 
datafile  <<  setw(30) 
datafile  <<  setw(30) 


<<  r[i]  <<  setw(30)  <<  kFT[i]  <<  setw(30)  <<  Ftest[i]  <<  setw(30)  <<  Fconv[i]  <<  setw(30)  <<  FtestFTconv [ i ] ; 
<<  FtestFT[i]  <<  setw(30)  <<  Ffinal[i]  <<  setw(30)  <<  ThetaConv[i]  <<  setw(30)  <<  Theta[i]; 

<<  ThetaTest [i]  <<  setw(30)  <<  ThetaTestFT [ i ]  <<  setw(30)  <<  Fdirect[i]  <<  setw(30)  <<  Aux[i]; 

<<  Fconv2nd[i]  <<  setw(30)  <<  FconvFT2nd [ i ]  <<  endl; 


} 


datafile . close  ( ) ; 


free (Ftest) ;  free(Fconv);  free (FtestFTconv) ;  free (FtestFT) ;  free (Ffinal) ;  free (Fdirect) ;  free (ThetaConv) ;  free (ThetaTest) ;  free (ThetaTestFT) ;  free (Aux) 
gsl_dht_free  (t) ;  gsl_permutation_f ree  (p) ; 


void  CoulombFluid : : TestGaussianConvolution ( ) { 

ResetValues ( ) ;  SetGrid2WallslDielectric ( ) ; 

double  *Ftest, *Fconv, *FtestFTconv, *FtestFT, *Ffinal, *Fdirect, *Aux,  *Fconv2nd, *FconvFT2nd; 

double  I  =  r[Nr-l],b,d,  *ThetaConv,  *ThetaTest,  *ThetaTestFT,  thetaMax; 

gsl  dht  *  t  =  gsl  dht  new(Nr,  0.0,  I); 

gsl  permutation  *  p  =  gsl  permutation  alloc  (2*Nz) ; 

Ftest  =  (double*)  calloc  (Nr , sizeof (double) ) ;  Fconv  =  (double*)  calloc  (Nr , sizeof (double) ) ;  FtestFTconv  =  (double*)  calloc  (Nr , sizeof (double) ) ; 
FtestFT  =  (double*)  calloc  (Nr , sizeof (double) ) ;  Ffinal  =  (double*)  calloc  (Nr , sizeof (double) ) ;  Fdirect  =  (double*)  calloc  (Nr , sizeof (double) ) ; 

Aux  =  (double*)  calloc  (Nr , sizeof (double) ) ;  Fconv2nd  =  (double*)  calloc  (Nr , sizeof (double) ) ;  FconvFT2nd  =  (double*)  calloc  (Nr , sizeof (double) ) ; 
ThetaConv  =  (double*)  calloc  (Nr , sizeof (double) ) ;  ThetaTest  =  (double*)  calloc  (Nr, sizeof (double) ) ;  ThetaTestFT  =  (double*)  calloc  (Nr , sizeof (double) ) ; 

b  =  gsl_sf_bessel_zero_JO (Nr+1) /I/I; 


for  (i=0; i<Nr; i++)  { 

if  (r[i]>=0*ap)  Ftest[i]  =  exp (-8*r [i] *r [i] *pi) ; 

if  (r [i] <period)  ThetaTest [i] =exp (~pi*period*r [i] *r [i] ) ; 

} 


for  (i=l;i<Nr;i++)  { 

Fconv [i]  =  0; 

for  ( j  =1 ; j  <Nr ; j  ++)  { 

Fconv[i]  +=  (r [ j ] -r [ j -1 ] ) *r [ j ] *Ftest [ j ] *exp ( -pi*period* (r [ i ] *r [ i ] +r [ j ] *r [ j ] ) )  *  2*pi*gsl_sf_bessel_I0 (period*pi*r [i] *r [ j ] ) ; 

} 

} 

Fconv [0]  =  Fconv [1]; 

gsl_dht_apply (t,  ThetaGauss,  ThetaConv);  for  (i=0; i<Nr; i++)  ThetaConv[i]  *=  b*b/(2*pi); 

gsl_dht_apply (t,  Fconv,  FtestFTconv);  for  (i=0; i<Nr; i++)  FtestFTconv [ i ]  *=  2*pi; 

for  (i=0; i<Nr; i++)  {  FtestFT [i]  =  FtestFTconv [ i ] /ThetaGauss [ i ] ;  } 

gsl_dht_apply (t,  FtestFT,  Ffinal);  for  (i=0; i<Nr; i++)  Ffinal [i]  *=  b*b/(2*pi); 

gsl_dht_apply (t,  Ftest,  Aux);  for  ( i=0 ; i<Nr ; i++)  Aux[i]  *=  2*pi; 
gsl_dht_apply (t,  Aux,  Fdirect);  for  (i=0; i<Nr; i++)  Fdirect [i]  *=  b*b/ (2*pi) ; 
gsl_dht_apply (t,  ThetaTest,  ThetaTestFT);  for  ( i=0 ; i<Nr ; i++)  ThetaTestFT [ i ]  *=  2*pi; 

for  (i=0; i<Nr; i++)  {  FconvFT2nd [ i ]  =  Aux [ i ] *ThetaGauss [ i ] ;  } 

gsl  dht  apply (t,  FconvFT2nd,  Fconv2nd) ;  for  (i=0; i<Nr; i++)  Fconv2nd[i]  *=  b*b/ (2*pi); 

ofstream  datafile; 
char  f ilename [70]; 


strcpy (filename, "Data/ " ) ;  strcat (filename,  project);  strcat (filename, "_TestGaussianConvolution . dat" ) ; 


datafile . open (filename, ios : : trunc) ; 


datafile  <<  "#"  <<  setw(29)  <<  "1)  r"  <<  setw(30)  <<  "2)  k"  <<  setw(30)  <<  "3)  Ftest (r) "  <<  setw(30)  <<  "4)  Fconv(r) "  <<  setw(30)  <<  "5) 
datafile  <<  setw(30)  <<  "6)  FtestFT (r) "  <<  setw(30)  <<  "7)  Ffinal (r) "  <<  setw(30)  <<  "8)  Theta_d(r)"  <<  setw(30)  <<  "9)  Theta_dFT ( r ) " ; 
datafile  <<  setw(30)  <<  "10)  ThetaTest (r) "  <<  setw(30)  <<  "11)  ThetaTestFT (r) "  <<  setw(30)  <<  "12)  Fdirect(r)"  <<  setw(30)  <<  "13)  Aux(r) 
datafile  <<  setw(30)  <<  "14)  Fconv2nd(r)"  <<  setw(30)  <<  "15)  FconvFT2nd (r) "  <<  endl; 
for  (i=0; i<Nr; i++)  { 


datafile  <<  setw(30) 
datafile  <<  setw(30) 
datafile  <<  setw(30) 
datafile  <<  setw(30) 


<<  r[i]  <<  setw(30)  <<  kFT[i]  <<  setw(30)  <<  Ftest[i]  <<  setw(30)  <<  Fconv[i]  <<  setw(30)  <<  FtestFTconv [ i ] ; 
<<  FtestFT[i]  <<  setw(30)  <<  Ffinal[i]  <<  setw(30)  <<  ThetaConv[i]  <<  setw(30)  <<  ThetaGauss [ i ] ; 

<<  ThetaTest [i]  <<  setw(30)  <<  ThetaTestFT [ i ]  <<  setw(30)  <<  Fdirect [i]  <<  setw(30)  <<  Aux[i]; 

<<  Fconv2nd[i]  <<  setw(30)  <<  FconvFT2nd [ i ]  <<  endl; 


} 


datafile . close  ( ) ; 


FtestFTconv (r) 


free (Ftest);  free (Fconv);  free (FtestFTconv) ;  free (FtestFT) ;  free (Ffinal) ;  free (Fdirect) ;  free (ThetaConv) ;  free (ThetaTest) ;  free (ThetaTestFT) ;  free (Aux) 
gsl_dht_free  (t) ;  gsl_permutation_f ree  (p) ; 


} 

void  CoulombFluid :: ObtainDisj oiningPressure ( ) { 

FILE  *fp; 

double  par [20],  *Posm,  *PosmV,  *Width,  previous,  previousRho,  FormerPhi,  DeltaV=0, Press=0, zlnit, Vlength=lel0; 
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char  str[40],  filename [80] ; 

int  Nmax  =  le7 , Plength, Ncolumn=20 ,  start; 

bool  DeltaVEnd=false; 

ofstream  datafile; 

Posm  =  (double*)  calloc  (Nmax,  sizeof (double) ) ; 

PosmV  =  (double*)  calloc  (Nmax,  sizeof (double) ) ; 

Width  =  (double*)  calloc  (Nmax,  sizeof (double) ) ; 

strcpy (filename, "Data/") ;  strcat (filename,  project);  strcat (filename, "_Profiles .dat") ; 
fp  =  fopen (filename,  "r"); 

cout  <<  "The  input  file  is  "  <<  filename  <<  endl; 
if  (fp  ==  NULL)  { 

fprintf ( stderr ,  "Can't  open  input  file  %s\n" , filename) ; 
exit ( 1 ) ; 

} 

while  (!feof(fp))  { 

fscanf(fp,  "%s",  str); 

if  (strcmp (str, "uReglnt")  ==  0)  break; 

} 

start  =  ftell(fp); 


i  =  0;  j  =0;  previous=-l;  FormerPhi  =  lei; 
while  (i<Nmax-l  and  !feof(fp))  { 

if  (i%100  ==  0)  cout  <<  "reading  i  =  "  <<  i  <<  endl; 

if  (fscanf(fp,  "%lf  %lf  %lf  %lf  %lf  %lf  %lf  %lf  %lf  %lf  %lf  %lf  %lf  %lf  %lf  %lf  %lf  %lf  %lf  %lf  ",  Spar [0] , Spar [1] , Spar [2] ,  Spar [ 3 ] , Spar [ 4 ] , Spar [ 5 ] ,  Spar [6] , Spar [7] , Spar [8] ,  Spar [9] , Spar [10] , Spar [11] ,  Spar [12] , Spar [13] , Spar [14] ,  Spar [15]  ,  Spar [16]  ,  Spar [17]  ,  Spar [18]  ,  Spar [19] ) 
cout  <<  "Unexpected  number  of  columns.  Code  is  scanning  the  file  "  <<  filename  <<  "  for  20  columns."  <<  endl; 

break ; 

} 


if  (i==l)  {  DeltaV  =  par [12];  zlnit  =  previous;  }  if  (i==2)  {  DeltaV  =  (par [ 12 ] -DeltaV) / (par [ 0 ] -previous ) ;  Vlength  =  1 . 0/DeltaV* (par [0] -previous) ;  } 

if  (par [0] -zlnit  >  Vlength  and  IDeltaVEnd)  {  DeltaVEnd  =  true;  Press  +=  -DeltaV*previousRho* (Vlength-previous ) ;  } 

if  (IDeltaVEnd)  {  Press  +=  -DeltaV* (previousRho) * (par [0] -previous) ;  }  cout  "loess  "  Press  os  "  "  css:  ; length  "  Vlength 


if (  (fabs (par [0] ) <le-6  or  ( ( f abs (par [ 0 ]  +  previous)  <  le-6)  and  previous  <  0))  or  ( f abs (par [ 8 ] ) <FormerPhi )  )  {  Posm[j]  =  (par [5] +par [6] ) *NA*kB*T*le21;  } 

if((par[0]  <  previous)  or  feof(fp))  {  Width[j]  =  previous;  PosmV[j]  =  Press*NA*kB*T*le21;  j++;  Press  =  0;  DeltaVEnd=false;  zlnit  =  par[0];} 
i++;  previous  =  par[0];  previousRho  =  par [5] +par [6] ; 

}  Plength  =  j;  FormerPhi  =  f abs (par [ 8 ] ) ; 

f close ( fp) ; 

printf ( "Reading  done;\n") ; 


while  (i<Plength)  { 

cout  <<  setw(15)  <<  Width[i]  <<  setw(15)  <<  Posm[i]  <<  setw(15)  <<  PosmV[i]  <<  setw(15)  <<  Posm[i]  +  PosmV[i]  <<  endl; 

} 

strcpy (filename, "Data/ " ) ;  strcat (filename,  project);  strcat (filename, "_Dis j oiningPressure . dat" ) ; 
datafile . open (filename, ios : : trunc) ; 

datafile  <<  "#"  <<  setw(49)  <<  "1)  width  (nm) "  <<  setw(50)  <<  "2)  Pressure  (*0.25  kT/nmA3  or  pN/nmA2)"  <<  setw(50)  <<  "3)  Pressure  due  to  the  wall  potential  (*0.25  kT/nmA3  or  pN/nmA2)"  <<  setw(50)  <<  "4)  Total  Pressure  (*0.25  kT/nmA3  or  pN/nmA2)"  <<  endl; 
for  (i=0; i<Plength; i++)  { 

datafile  <<  setw(50)  <<  Width[i]  <<  setw(50)  <<  Posm[i]  <<  setw(50)  <<  PosmV[i]  <<  setw(50)  <<  Posm[i]  +  PosmV[i]  <<  endl; 

} 

datafile . close  ( ) ; 

free (Posm);  free (Width) ; 


} 


void  wait_for_key  ()  { 

#if  defined (WIN32 )  | |  defined (  WIN32)  | |  defined (  WIN32  )  | |  defined (  T0S_WIN  ) 
cout  <<  endl  <<  "Press  any  key  to  continue..."  <<  endl; 

FlushConsolelnputBuf fer (GetStdHandle ( STD  INPUT  HANDLE)); 

_getch ( ) ; 

#elif  defined (unix)  | |  defined (  unix)  | |  defined (  unix  )  | |  defined (  APPLE  ) 
cout  <<  endl  <<  "Press  ENTER  to  continue..."  <<  endl; 

std : : c in . clear ( ) ; 

std : : cin . ignore (std : : cin . rdbuf ( ) ->in  avail ( ) ) ; 
std : : cin . get ( ) ; 

#endif 

return; 

} 


int  main ( ) { 

CoulombFluid  Dielectric; 
char  project [70]; 


strcpy (project, "RegularizedPotential/Project  VReg_001  21  808080  900mM  N50"); 
Dielectric . SetName (project) ; 
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//  Dielectric . Iterate2WallslDielectric () ; 


Dielectric . Iterate2DielectricWalls ( ) ; 


//  Dielectric . TestConvolution  () ; 

//  Dielectric . TestGaussianConvolution () ; 

//Dielectric . Iterate2DielectricWallSession  () ; 


/ /  Dielectric . ObtainDisj oiningPressure ()  ; 

//  Dielectric . test_dht_potentials () ; 

//  test_dht_expl  ()  ; 

//  Dielectric . TestReservoir () ; 

//  Dielectric . TestMatrixInversion () ; 

return  0 ; 

} 
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README 


/*  MIXING 
* 

*  For  Irreversible  Polymerization 

*  Author:  Prateek  K.  Jha  (  prateekjha.iitr(5)gmail.com  ) 

*  Current  Version:  14  (  Polymer  Mixing) 

*  Revision  Date:  Feb  14,  2012 

* 

*  Project  Files: 

*  main.cpp 

*  system. cpp 

*  utils. cpp 

*  mc.cpp 

*  utils. h 

*  xyz.h 

*  energies. h 

*  grid.h 

*  header. h 

*  Makefile 

*  mc.h 

*  particle. h 

*  system. h 

*  chain. h 

* 

*  Dependencies:  GSL,  BOOST  Libraries 

* 

*  To  Run: 

*  make  followed  by  ./MIXING 

*  ./MIXING  -h  for  options 
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main.cpp 


//MIXING:  main.cpp  Main  Program  (Revision  Date:  Nov  1,  2011) 
#include  "header.h" 

#include  "system. h" 

#include  "mc.h" 

int  main(int  argc,  char  *argv[]) 

{ 

time_t  start,  end; 
time(&start); 

System  sys; 

sys.Readlnput(argc,argv); 

sys.Create(); 

sys.WriteMol2(0); 

//sys.WriteDump(O); 

//sys.WritePOV(O); 

MC  me; 

mc.S=sys; 

mc.Sweep(); 


//Finalize  Random  number 

gsl_rng_free(sys.gsl_r); 

time(&end); 

cout«"Time  Elapsed="«difftime(end,start)«endl; 
return  0; 

} 
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system,  cpp 


/MIXING:  system. cpp  System  Class  Function  Definitions  (Revision  Date:  Nov  1,  2011) 
#include  "system. h" 
void  System::Create() 

{ 

cout«"Creating  System"«endl; 

XYZ  xyz,  dxyz; 
bool  flag; 
double  theta,  phi; 
int  count=0; 

//for  all  chains 

for(int  i=0;  i<NCHAINS;  i++) 

{ 

//  cout«"Creating  chain  #:"«i«endl; 

Chain  ch; 

//for  all  beads  of  that  chains 

//Find  a  random  initial  point  in  (-0.5*L,  0.5*L) 

//Check  for  overlaps  and  reject  if  overlapping 

flag=true; 

while(flag) 

{ 

xyz.set(gsl_rng_uniform(gsl_r)*L-0.5*L,gsl_rng_uniform(gsl_r)*L- 

0.5*L,gsl_rng_uniform(gsl_r)*L-0.5*L); 

flag=false; 

for(int  k=l;  k<P.size();  k++) 

{ 

if(xyz.real_d2(P[k-l].coord)<=1.0) 

{ 

flag=true; 

break; 

} 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


} 


} 

for(int  j=0;  j<NBEADS;  j++) 

{ 

Particle  p; 

//Check  for  overlaps  and  reject  if  overlapping 

flag=true; 

while(flag) 

{ 

//Make  a  bond  of  length  sigma  in  a  random  direction 

theta=gsl_rng_uniform(gsl_r)*2.0*PI; 

phi=gsl_rng_uniform(gsl_r)*PI; 

dxyz.set(cos(theta)*sin(phi),sin(theta)*sin(phi),cos(phi)); 

dxyz=xyz+dxyz; 

flag=false; 

for(int  k=l;  k<P.size();  k++) 

{ 

if(dxyz.real_d2(P[k-l].coord)<=1.0) 

{ 

flag=true; 

break; 

} 

} 

} 

//accept 

xyz=dxyz; 

p.coord=xyz; 

p.chain_ID=i; 

p.nbonds=0; 
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//assign  type  -Ends  are  B,  Others  are  A 
if(j==0  |  |  j==NBEADS-l) 
p.type='B'; 
else 

p.type='A'; 

if(j>0) 

{ 

p.bonded_nbr.push_back(i*NBEADS+j-l); 

p.nbonds++; 

} 

if(j<  N  BEADS-1) 

{ 

p.bonded_nbr.push_back(i*NBEADS+j+l); 

p.nbonds++; 

} 

NBONDS+=p.nbonds; 

P.push_back(p); 

ch.  particles.  push_back(i*NBEADS+j); 

} 

C.push_back(ch); 

} 

NBONDS/=2; 


} 

void  System::WriteMol2(int  timestep) 

{ 

//  cout«"Writing  Mol2  file"«endl; 
ofstream  out; 
char  FileName[100]; 
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sprintf(FileName,"%s_Config_s_%.08d.mol2",MCDirName.c_str(),timestep); 

out.open(FileName); 

1 1  out«"#  Mol2  formatted  input  file  for\t"«NCHAINS«"\tchains  &\t"«NBEADS«"\tbeads  per 
chain"«endl; 

double  dist2_max=0.25*L*L; 
int  nbonds_display=NBONDS; 

XYZ  im,  im2; 

//Count  the  number  of  bonds  which  do  not  cross  the  boundaries 
for(int  i=0;  i<NT;  i++) 

{ 

im=image(P  [i],  coord,  L); 
for(int  j=0;  j<P[i].nbonds;  j++) 

{ 

if(i>P[i].bonded_nbr[j]) 

{ 

im2=image(P[P[i].bonded_nbr[j]].coord,L); 

if(im.real_d2(im2)>dist2_max) 

nbonds_display--; 

} 

} 

} 

out«"@<TRIPOS>MOLECULE"«endl; 

out«"Polymer"«endl; 

out«NT«"\t"«nbonds_display«endl; 

out«"SMALL"«endl; 

out«"NO_CHARGES"«endl; 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


out«"@<TRIPOS>ATOM"«endl; 


string  name, type; 
name="C.3"; 
for(int  i=0;  i<NT;  i++) 

{ 

im=image(P[i].coord,L); 

out<<setw(6)«i+l«"\t"«P[i].type«"\t"«setw(8)«im.x«"\t"«setw(8)«im.y«"\t"«setw(8)«i 

m.z«"\t"«name«endl; 

} 

out«"@<TRIPOS>BOND"«endl; 
int  count=0; 
for(int  i=0;  i<NT;  i++) 

{ 

im=image(P  [i],  coord,  L); 
for(int  j=0;  j<P[i].nbonds;  j++) 

{ 

if(i>P[i].bonded_nbr[j]) 

{ 

im2=image(P[P[i].bonded_nbr[j]].coord,L); 

if(im.real_d2(im2)<=dist2_max) 

out<<setw(8)«++count«"\t"«setw(8)«i+l«"\t"«setw(8)«P[i].bonded_nbr[j]+l«"\t"«setw(2 

)«"l"«endl; 

} 

} 

} 


out.close(); 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


//  cout«"Mol2  input  written  in\t"«FileName«endl; 
return; 

} 

void  System::WriteDump(int  timestep) 

{ 

char  FileName[200]; 

sprintf(FileName,"%s_Dump.lammpstrj",MCDirName.c_str()); 
ofstream  out; 

out.open(FileName,ios::app); 

out«"ITEM:  TIMESTEP"«endl; 

out«timestep«endl; 

out«"ITEM:  NUMBER  OF  ATOMS"«endl; 

out«NT«endl; 

out«"ITEM:  BOX  BOUNDS"«endl; 
out«-0.5*L«"\t"<<0.5*L«endl; 
out«-0.5*L«"\t"<<0.5*L«endl; 
out«-0.5*L«"\t"«0.5*L«endl; 
out«"ITEM:  ATOMS  index  type  x  y  z"«endl; 

XYZim; 

for(int  i=0;  i<NT;  i++) 

{ 

im=image(P  [i],  coord,  L); 

out<<setw(6)«i+l«"\t"«P[i].type«"\t"«setw(8)«im.x«"\t"«setw(8)«im.y«"\t"«setw(8)«i 

m.z«endl; 

} 

out.close(); 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


void  System::WritePOV(int  timestep) 

{ 

cout«"Writing  POV  file"«endl; 

ofstream  out; 

char  FileName[100]; 

sprintf(FileName,"%s_Config_s_%.08d.pov",MCDirName.c_str(), timestep); 

out.open(FileName); 

out«"//  POV  3.x  input  script  "«endl; 

out«"//  try  povray  +W669  +H649  -Iplot.pov  -Oplot.pov.tga  +P  +X  +A  +FT  +C"«endl; 
out«"#if  (version  <  3.5)"«endl; 

out«"#error  \"POV3DisplayDevice  has  been  compiled  for  POV-Ray  3.5  or  above. \\nPlease 
upgrade  POV-Ray  or  recompile  VMD.\""«endl; 

out«"#end"«endl; 

out«"#declare  VMD_clip_on=array[3]  {0,  0,  0};"«endl; 
out«"#declare  VMD_clip=array[3];"«endl; 
out«"#declare  VMD_scaledclip=array[3];"«endl; 
out«"#declare  VMD_line_width=0.0020;"«endl; 

out«"#macro  VMDC  (  Cl  )"«endl; 
out«"\ttexture  {  pigment  { rgbt  Cl  }}"«endl; 
out«"#end"«endl; 

out«"#macro  VMD_point  (PI,  Rl,  Cl)"«endl; 

out«"\t#local  T  =  texture  { finish  {  ambient  1.0  diffuse  0.0  phong  0.0  specular  0.0  }  pigment  {  Cl } 
}"«endl; 

out«"\t#if(VMD_clip_on[2])"«endl; 
out«"\tintersection  {"«endl; 

out«"\t\tsphere  {PI,  Rl  texture  {T}  #if(VMD_clip_on[l])  clipped_by  {VMD_clip[l]}  #end 
no_shadow}"«endl; 

out«"\t\tVMD_clip[2]"«endl; 

out«"\t}"«endl; 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


out«"\t#else"«endl; 

out«"\tsphere  {PI,  R1  texture  {T}  #if(VMD_clip_on[l])  clipped_by  {VM D_clip[l] }  #end 
no_shadow}"«endl; 

out«"\t#end"«endl; 

out«"#end"«endl; 

out«"#macro  VMD_line  (PI,  P2,  Cl)"«endl; 

out«"\t#local  T  =  texture  { finish  {  ambient  1.0  diffuse  0.0  phong  0.0  specular  0.0  }  pigment  {  Cl } 
}"«endl; 

out«"\t#if(VMD_clip_on[2])"«endl; 
out«"\tintersection  {"«endl; 

out«"\t\tcylinder  {PI,  P2,  VMD_line_width  texture  {T}  #if(VMD_clip_on[l])  clipped_by 
{VMD_clip[l]}#end  no_shadow}"«endl; 

out«"\t\tVMD_clip[2]"«endl; 

out«"\t}"«endl; 

out«"\t#else"«endl; 

out«"\tcylinder  {PI,  P2,  VMD_line_width  texture  {T}  #if(VMD_clip_on[l])  clipped_by 
{VMD_clip[l]}#end  no_shadow}"«endl; 

out«"\t#end"«endl; 

out«"#end"«endl; 

out«"#macro  VMD_sphere  (PI,  Rl,  Cl)"«endl; 
out«"\t#local  T  =  texture  {  pigment  {  Cl }  }"«endl; 
out«"\t#if(VMD_clip_on[2])"«endl; 
out«"\tintersection  {"«endl; 

out«"\t\tsphere  {PI,  Rl  texture  {T}  #if(VMD_clip_on[l])  clipped_by  {VMD_clip[l]}  #end 
no_shadow}"«endl; 

out«"\t\tVMD_clip[2]"«endl; 

out«"\t}"«endl; 

out«"\t#else"«endl; 

out«"\tsphere  {PI,  Rl  texture  {T}  #if(VMD_clip_on[l])  clipped_by  {VMD_clip[l]}  #end 
no_shadow}"«endl; 

out«"\t#end"«endl; 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


out«"#end"«endl; 


out«"#macro  VMD_cylinder  (PI,  P2,  Rl,  Cl,  01)"«endl; 
out«"\t#local  T  =  texture  {  pigment  {  Cl }  }"«endl; 
out«"\t#if(VMD_clip_on[2])"«endl; 
out«"\tintersection  {"«endl; 

out«"\t\tcylinder  {PI,  P2,  Rl  #if(01)  open  #end  texture  {T}  #if(VMD_clip_on[l])  clipped_by 
{VMD_clip[l]}#end  no_shadow}"«endl; 

out«"\t\tVMD_clip[2]"«endl; 

out«"\t}"«endl; 

out«"\t#else"«endl; 

out«"\tcylinder  {PI,  P2,  Rl  #if(01)  open  #end  texture  {T}  #if(VMD_clip_on[l])  clipped_by 
{VMD_clip[l]}#end  no_shadow}"«endl; 

out«"\t#end"«endl; 

out«"#end"«endl; 

out«"#macro  VMD_cone  (PI,  P2,  Rl,  Cl)"«endl; 
out«"\t#local  T  =  texture  {  pigment  {  Cl }  }"«endl; 
out«"\t#if(VMD_clip_on[2])"«endl; 
out«"\tintersection  {"«endl; 

out«"\t\tcone  {PI,  Rl,  P2,  VMD_line_width  texture  {T}  #if(VMD_clip_on[l])  clipped_by 
{VMD_clip[l]}#end  no_shadow}"«endl; 

out«"\t\tVMD_clip[2]"«endl; 

out«"\t}"«endl; 

out«"\t#else"«endl; 

out«"\tcone  {PI,  Rl,  P2,  VMD_line_width  texture  {T}  #if(VMD_clip_on[l])  clipped_by 
{VMD_clip[l]}#end  no_shadow}"«endl; 

out«"\t#end"«endl; 

out«"#end"«endl; 

out«"#macro  VMD_triangle  (PI,  P2,  P3,  Nl,  N2,  N3,  Cl)"«endl; 
out«"\t#local  T  =  texture  {  pigment  {  Cl }  }"«endl; 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


out«"\tsmooth_triangle  {PI,  Nl,  P2,  N2,  P3,  N3  texture  {T}  #if(VMD_clip_on[l])  clipped_by 
{VMD_clip[l]}#end  no_shadow}"«endl; 

out«"#end"«endl; 

out«"#macro  VMD_tricolor  (PI,  P2,  P3,  Nl,  N2,  N3,  Cl,  C2,  C3)"«endl; 

out«"\t#local  NX  =  P2-Pl;"«endl; 

out«"\t#local  NY  =  P3-Pl;"«endl; 

out«"\t#local  NZ  =  vcross(NX,  NY);"«endl; 

out«"\t#local  T  =  texture  {  pigment  {"«endl; 

out«"\t\taverage  pigment_map  {"«endl; 

out«"\t\t\t[l  gradient  x  color_map  {[0  rgb  0]  [1  C2*3]}]"«endl; 

out«"\t\t\t[l  gradient  y  color_map  {[0  rgb  0]  [1  C3*3]}]"«endl; 

out«"\t\t\t[l  gradient  z  color_map  {[0  rgb  0]  [1  Cl*3]}]"«endl; 

o  ut«  "\t\t}"  «e  nd  I ; 

out«"\t\tmatrix  <1.01,0,l,0,1.01,l,0,0,l,-.002,-.002,-l>"«endl; 

out«"\t\tmatrix  <NX.x,NX.y,NX.z,NY.x,NY.y,NY.z,NZ.x,NZ.y,NZ.z,Pl.x,Pl.y,Pl.z>"«endl; 

out«"\t}  }"«endl; 

out«"\tsmooth_triangle  {PI,  Nl,  P2,  N2,  P3,  N3  texture  {T}  #if(VMD_clip_on[l])  clipped_by 
{VMD_clip[l]}#end  no_shadow}"«endl; 

out«"#end"«endl; 

out«"camera  {"«endl; 
out«"\torthographic"«endl; 

out«"\tlocation  <"«-0.6*L«","«-0.55*L«","«-0.5*L«">"«endl; 
out«"\tlook_at  <"«0.45*L«","«0.4*L«","«0.5*L«">"«endl; 

//  out«"\tup  <"«-0.5*L<<","«0.5*L«","«-0.5*L«">"«endl; 

//  out«"\tright  <"<<0.5*L«","«-0.5*L«","«-0.5*L«">"«endl; 
out«"}"«endl; 

out«"light_source  {"«endl; 

out«"\t<"«-0.1/5.0*L<<",  "«0.1/5.0*L«",  "<<-1.0/5.0*L«">"«endl; 
out«"\tcolor  rgb<1.000,  1.000,  1.000>"«endl; 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


out«"\tparallel"«endl; 
out«"\tpoint_at  <0.0,  0.0,  0.0>"«endl; 
out«"}"«endl; 

out«"light_source  {"«endl; 

out«"\t<"«l. 0/5.0* L«",  "«2.0/5.0*L«",  "<<-0.5/5.0*L«">"«endl; 

out«"\tcolor  rgb<1.000,  1.000,  1.000>"«endl; 

out«"\tparallel"«endl; 

out«"\tpoint_at  <0.0,  0.0,  0.0>"«endl; 

out«"}"«endl; 

out«"background  {"«endl; 

out«"\tcolor  rgb<0.500,  0.300,  0.000>"«endl; 

out«"}"«endl; 

out«"#default  { texture  {"«endl; 

out«"\tfinish  { ambient  0.000  diffuse  0.650  phong  0.1  phong_size  40.000  specular  0.500  }"«endl; 
out«"}  }"«endl; 

//  out«"#declare  VMD_line_width=0.0020;"«endl; 
out«"//  MoleculelD:  0  ReprID:  0  Beginning  VDW"«endl; 
out«"#declare  VMD_line_width=0.10;"«endl; 

XYZim; 

XYZ  im2; 

for(int  i=0;  i<NT;  i++) 

{ 

im=image(P[i].coord,L); 
if(P[i].type=- A') 

out«"VMD_sphere(<"«im.x«","«im.y«","«im.z«">,0.2,rgbt<0.0,1.0,0.0>)"«endl; 

else 

out«"VMD_sphere(<"«im.x«","«im.y«","«im.z«">,0.5,rgbt<1.0,1.0,1.0>)"«endl; 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


for(int  j=0;  j<P[i].nbonds;  j++) 

{ 

if(i>P[i].bonded_nbr[j]) 

{ 

im2=image(P[P[i].bonded_nbr[j]].coord,L); 

if(im.real_d(im2)<0.5*L) 


//out«"VMD_cylinder(<"«im.x«","«im.y«","«im.z«">,<"«im2.x«","«im2.y«","«i 
m2.z«">0.2,rgbt<0.500, 0.500, 0.500, 0.000>,l)"«endl; 


out«"VMD_line(<"«im.x«","«im.y«","«im.z«">,<"«im2.x«",''«im2.y«","«im2.z«">,rgbt 

<0.0,0.0,0.0,0.000>)"«endl; 

else  //break  the  line  in  two  parts 

{ 

XYZ  imd=im2-im; 


XYZ  pt;  //new  point 
if(fabs(imd.x)>0.5*L) 
{ 


if(fabs(imd.y>0.5*L)  |  |  fabs(imd.z>0.5*L)) 
break; 
pt.x=0.5*L; 

pt.y=(0.5*L-im.x)/imd.x*imd.y+im.y; 

pt.z=(0.5*L-im.x)/imd.x*imd.z+im.z; 

if(imd.x>0.0) 


// 

out«"VMD_cylinder(<"«im2.x«","«im2.y«","«im2.z«">,<"«pt.x«","«pt.y«","«pt.z«">0. 
2,  rgbt<0.500, 0.500, 0.500, 0.000>,l)"«endl; 


out«"VMD_line(<"«im2.x«","«im2.y«","«im2.z«">,<"«pt.x«","«pt.y«","«pt.z«">,rgbt< 

0.0,0.0,0.0,0.000>)"«endl; 

else 


// 

out«"VMD_cylinder(<"«im.x«","«im.y«","«im.z«">,<"«pt.x«","«pt.y«","«pt.z«">0.2,rg 
bt<0.500, 0.500, 0.500, 0.000>,l)"«endl; 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


out«"VMD_line(<"«im.x«","«im.y«","«im.z«">,<"«pt.x«","«pt.y«","«pt.z«">,rgbt<0.0, 

0.0,0.0,0.000>)"«endl; 


pt.x=-0.5*L; 


pt.y=(-0.5*L-im.x)/imd.x*imd.y+im.y; 

pt.z=(-0.5*L-im.x)/imd.x*imd.z+im.z; 

if(imd.x<0.0) 


// 

out«"VMD_cylinder(<"«im2.x«","«im2.y«","«im2.z«">,<"«pt.x«","«pt.y«","«pt.z«">0. 
2, rgbt<0.500, 0.500, 0.500, 0.000>,l)"«endl; 


out«"VMD_line(<"«im2.x«","«im2.y«","«im2.z«">,<"«pt.x«","«pt.y«","«pt.z«">,rgbt< 

0.0,0.0,0.0,0.000>)"«endl; 

else 


// 

out«"VMD_cylinder(<"«im.x«","«im.y«","«im.z«">,<"«pt.x«","«pt.y«","«pt.z«">0.2,rg 
bt<0.500, 0.500, 0.500, 0.000>,l)"«endl; 


out«"VMD_line(<"«im.x«","«im.y«","«im.z«">,<"«pt.x«",''«pt.y«","«pt.z«">,rgbt<0.0, 

0.0,0.0,0.000>)"«endl; 


} 

else  if(fabs(imd.y)>0.5*L) 

{ 


if(fabs(imd.z>0.5*L)  |  |  fabs(imd.x>0.5*L)) 
break; 
pt.y=0.5*L; 

pt.z=(0.5*L-im.y)/imd.y*imd.z+im.z; 

pt.x=(0.5*L-im.y)/imd.y*imd.x+im.x; 

if(imd.y>0.0) 


// 

out«"VMD_cylinder(<"«im2.x«","«im2.y«","«im2.z«">,<"«pt.x«","«pt.y«","«pt.z«">0. 
2, rgbt<0.500, 0.500, 0.500, 0.000>,l)"«endl; 


out«"VMDJine(<"«im2.x«","«im2.y«","«im2.z«">,<"«pt.x«","«pt.y«","«pt.z«">,rgbt< 

0.0,0.0,0.0,0.000>)"«endl; 


else 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


// 

out«"VMD_cylinder(<"«im.x«","«im.y«","«im.z«">,<"«pt.x«","«pt.y«","«pt.z«">0.2,rg 
bt<0. 500, 0.500, 0.500, 0.000>,l)"«endl; 


out«"VMDJine(<"«im.x«","«im.y«","«im.z«">,<"«pt.x«","«pt.y«","«pt.z«">,rgbt<0.0, 

0.0,0.0,0.000>)"«endl; 


pt.y=-0.5*L; 

pt.z=(-0.5*L-im.y)/imd.y*imd.z+im.z; 

pt.x=(-0.5*L-im.y)/imd.y*imd.x+im.x; 


if(imd.y<0.0) 


// 

out«"VMD_cylinder(<"«im2.x«","«im2.y«","«im2.z«">,<"«pt.x«","«pt.y«","«pt.z«">0. 
2, rgbt<0.500, 0.500, 0.500, 0.000>,l)"«endl; 


out«"VMD_line(<"«im2.x«","«im2.y«","«im2.z«">,<"«pt.x«","«pt.y«","«pt.z«">,rgbt< 

0.0,0.0,0.0,0.000>)"«endl; 

else 


// 

out«"VMD_cylinder(<"«im.x«","«im.y«","«im.z«">,<"«pt.x«","«pt.y«","«pt.z«">0.2,rg 
bt<0.500, 0.500, 0.500, 0.000>,l)"«endl; 


out«"VMD_line(<"«im.x«","«im.y«","«im.z«">,<"«pt.x«","«pt.y«","«pt.z«">,rgbt<0.0, 

0.0,0.0,0.000>)"«endl; 


} 

else 

{ 


if(fabs(imd.x>0.5*L)  |  |  fabs(imd.y>0.5*L)) 
break; 
pt.z=0.5*L; 

pt.x=(0.5*L-im.z)/imd.z*imd.x+im.x; 

pt.y=(0.5*L-im.z)/imd.z*imd.y+im.y; 

if(imd.z>0.0) 


// 

out«"VMD_cylinder(<"«im2.x«","«im2.y«","«im2.z«">,<"«pt.x«","«pt.y«","«pt.z«">0. 
2, rgbt<0.500, 0.500, 0.500, 0.000>,l)"«endl; 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


out«"VMD_line(<"«im2.x«","«im2.y«","«im2.z«">,<"«pt.x«","«pt.y«","«pt.z«">,rgbt< 

0.0,0.0,0.0,0.000>)"«endl; 

else 


// 

out«"VMD_cylinder(<"«im.x«","«im.y«","«im.z«">,<"«pt.x«","«pt.y«","«pt.z«">0.2,rg 
bt<0.500, 0.500, 0.500, 0.000>,l)"«endl; 


out«"VMD_line(<"«im.x«","«im.y«","«im.z«">,<"«pt.x«","«pt.y«","«pt.z«">,rgbt<0.0, 

0.0,0.0,0.000>)"«endl; 


pt.z=-0.5*L; 

pt.x=(-0.5*L-im.z)/imd.z*imd.x+im.x; 

pt.y=(-0.5*L-im.z)/imd.z*imd.y+im.y; 


if(imd.z<0.0) 


// 

out«"VMD_cylinder(<"«im2.x«","«im2.y«","«im2.z«">,<"«pt.x«","«pt.y«","«pt.z«">0. 
2,  rgbt<0.500, 0.500, 0.500, 0.000>,l)"«endl; 


out«"VMD_line(<"«im2.x«","«im2.y«","«im2.z«">,<"«pt.x«","«pt.y«","«pt.z«">,rgbt< 

0.0,0.0,0.0,0.000>)"«endl; 

else 


// 

out«"VMD_cylinder(<"«im.x«","«im.y«","«im.z«">,<"«pt.x«","«pt.y«","«pt.z«">0.2,rg 
bt<0.500, 0.500, 0.500, 0.000>,l)"«endl; 


out«"VMD_line(<"«im.x«","«im.y«","«im.z«">,<"«pt.x«","«pt.y«","«pt.z«">,rgbt<0.0, 

0.0,0.0,0.000>)"«endl; 


} 


} 

} 


} 

out«"#declare  VMD_line_width=0.050;"«endl; 


out«"VMDJine(<"«-0.5*L«","«-0.5*L«","«-0.5*L«">,<"«0.5*L«","«-0.5*L«","<<- 


0.5*L«">,rgbt<0.250, 0.750, 0.750, 0.000>)"«endl; 


out«"VMD_line(<"«-0.5*L«","«-0.5*L«","«-0.5*L«">,<"«-0.5*L«","«0. 5 


0.5*L«">,rgbt<0. 250, 0.750, 0.750, 0.000>)"«endl; 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


out«"VMD_line(<"«-0.5*L«","«-0.5*L«","«-0.5*L«">, <"<<-0.5* 


0.5*L«","«0.5*L«">,rgbt<0. 250, 0.750, 0.750, 0.000>)"«endl; 


out«"VM  D_line(<"«0. 5*  L«","«0. 5*  L«","«0. 5*  !.«">,<"«- 
0.5*L«","«0.5*L«","«0.5*L«">,rgbt<0. 250, 0.750,0. 750, 0.000>)"«endl; 

out«"VMDJine(<"«0.5*L«","«0.5*L«","«0.5*L«">,<"«0.5*L<<","«- 
0.5*L«","«0.5*L«">,rgbt<0. 250, 0.750, 0.750, 0.000>)"«endl; 

out«"VMDJine(<"«0.5*L«","«0.5*L«","«0.5*L«">,<"«0.5*L«","«0.5*L<<","«- 
0.5*L«">,rgbt<0.250, 0.750, 0.750, 0.000>)"«endl; 


out«"VMD_line(<"«0.5*L«","«-0.5*L«","«-0.5*L«">,<"«0.5*L«","«0.5*L«","« 
0.5*L«">,rgbt<0.250, 0.750, 0.750, 0.000>)"«endl; 

out«"VMD_line(<"«0.5*L«","«-0.5*L«","«-0.5*L«">,<"«0.5*L«","«- 
0.5*L«","«0.5*L«">,rgbt<0. 250, 0.750, 0.750, 0.000>)"«endl; 


out«"VMDJine(<"«-0.5*L«","«0.5*L«","«-0.5*L«">,<"«0.5*L«","«0.5*L<<","« 
0.5*L«">,rgbt<0.250, 0.750, 0.750, 0.000>)"«endl; 

out«"VMD_line(<"«-0.5*L«","«0.5*L«","«-0.5*L«">,<"<<- 
0.5*L«","«0.5*L«","«0.5*L«">,rgbt<0. 250, 0.750, 0.750, 0.000>)"«endl; 


out«"VMD_line(<"«-0.5*L«","«-0.5*L«","«0.5*L«">,<"«0.5*L«","«- 
0.5*L«","<<0.5*L«">,rgbt<0. 250, 0.750, 0.750, 0.000>)"«endl; 

out«"VMD_line(<"«-0.5*L«","«-0.5*L«","«0.5*L«">,<"«- 
0.5*L«","«0.5*L«","«0.5*L«">,rgbt<0. 250, 0.750, 0.750, 0.000>)"«endl; 

out«"//  End  of  POV-Ray  3.x  generation"«endl; 

return; 


} 
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utiis.cpp 


//MIXING:  utiis.cpp  Utilities  Functions  (Revision  Date:  Nov  1,  2011) 
#include  "utils. h" 

//assumes  particle  is  between  -L  to  +L 
XYZ  image(XYZ  p,  double  L) 

{ 

XYZ  xyz; 

xyz.x=myfmod(p.x+0.5*L,  L)-0.5*L; 
xyz.y=myfmod(p.y+0.5*L,  L)-0.5*L; 
xyz.z=myfmod(p.z+0.5*L,  L)-0.5*L; 
return  xyz; 

} 

double  myfmod(double  x,  double  y) 

{ 

double  temp=fmod(x,y); 
if(temp>=0.0) 
return  temp; 
else 

return  temp+y; 

} 

//Minimum  image  distance  squared:  pass  original  coordinates 
double  min_d2(XYZ  a,  XYZ  b,  double  L) 

{ 

a=image(a,L); 

b=image(b,L); 

XYZ  d=a-b; 
d.my_abs(); 
if(d.x>=0.5*L) 
d.x=L-d.x; 


if(d.y>=0.5*L) 
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d.y=L-d.y; 


if(d.z>=0.5*L) 

d.z=L-d.z; 

return  d.norm2(); 

} 

//Use  the  prescription  given  in  http://mathworld.wolfram.com/SpherePointPicking.html 
XYZ  Random Move(XYZ  old,  double  step,  double  u,  double  v) 

{ 

double  theta=2.0*M_PI*u; 
double  phi=acos(2.0*v-1.0); 

return  XYZ(old.x+step*cos(theta)*sin(phi),old.y+step*sin(theta)*sin(phi),old.z+step*cos(phi)); 

} 

int  Gridlndex(XYZ  p,  int  n,  double  dl,  double  L) 

{ 

int  i=int(floor((p.x+0.5*L)/dl)); 
int  j=int(floor((p.y+0.5*L)/dl)); 
int  k=int(floor((p.z+0.5*L)/dl)); 
return  n*n*k+n*j+i; 

} 

int  Gridlndex(int  i,  int  j,  int  k,  int  n) 

{ 

if(i>n-l) 

i-=n; 

else  if(i<0) 
i+=n; 
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if(j>n-l) 

j-=n; 

else  if(j<0) 
j+=n; 

if(k>n-l) 

k-=n; 

else  if(k<0) 
k+=n; 

return  n*n*k+n*j+i; 

} 

void  GridLoc(int&  i ,  int&  j,  int&  k,  int  n,  int  index) 

{ 

i=index%n; 

j=((index-i)/n)%n; 

k=(index-i-j*n)/(n*n); 

} 

double  hfunc(double  u,  double  Lm,  double  phi) 

{ 

return  sin(2.0*PI*u/Lm+phi); 

} 
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me.  epp 


//MIXING:  me. epp  MC  Class  Function  Definitions  (Revision  Date:  Feb  14,2012) 
//Include  Calculation  of  std  error 
#include  "mc.h" 
void  MC::Sweep() 

{ 

Pn=S.P; 


double  accept=0.0; 

int  nsample=S.t_mixing/100; 
if(nsample<l) 
nsample=l; 
energy=TotalEnergy(); 
cout«" Initial  Energy="«energy«endl; 
Q=S.Pe/S.L*S.MCstep; 

WriteTemplate(); 

LogProfile(0, accept); 
CreateCellList(); 
int  move=0; 

for(int  i=l;  i<=S.nsweep;  i++) 

{ 

int  nchain=S.NCHAINS; 

//stop  simulation  if  nchain=l; 
//if(nchain==l) 

//break; 

time+=S.deltat; 

accept+=MoveParticle(move); 
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//write  POV  if  chain  #  is  decreased 
//if(  nchai  n  !=S.  NCH  Al  NS) 

//  S.WritePOV(i); 
if(i%nsample==0) 

{ 

//  S.WriteDump(i); 

//  S.WriteMol2(i); 

//  S.WritePOV(i); 
accept/=double(nsample); 

//This  function  shows  false  positive  in  valgrind.  Uncomment  this  while  running  memcheck 
too 

LogProfile(i,  accept); 
accept=0.0; 

} 

if(i%S.t_mixing==0) 

{ 

move++; 

move=move%3; 

} 

} 

cout«" Final  Energy="«energy«endl; 

cout«"Final  Energy  by  recalculation="«TotalEnergy()«endl; 

//Write  Dump  at  the  end 
//  S.WriteDump(S.nsweep); 

//  S.WritePOV(S.nsweep); 

S.WriteMol2(S.nsweep); 

} 

void  MC::WriteTemplate() 

{ 
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ofstream  out; 

string  MCFileName=S.MCDirName+"_MC.Iog"; 
out.open(MCFileName.c_str()); 


out<<setw(12)«"sweep"«"\t"«setw(12)«"time"«"\t"«setw(12)«"accept"«"\t"«setw(8)«" 

Nchains"«"\t"«setw(12)<<"Mn"«"\t"«setw(12)«"PD"«"\t"«setw(12)«"<RA2>"«"\t"«setw 

(12)«"<A_3>"«"\t"«setw(12)«"<l_bA2>"<<"\t"«setw(12)«"<dRA2>"«"\t"«setw(12)«"<dA_ 

3>"«"\t"«setw(12)«"<dl_bA2>"«"\t"«setw(12)«"<lambda>"«"\t"«setw(12)«"<dlambda>"< 

<endl; 


out.close(); 


} 


void  MC::LogProfile(int  i,  double  accept) 

{ 

//Calculate  size  measures 

int  mi,  ni=0,  ni_mi=0,  ni_mi2=0,  ni_mi3=0; 

for(int  j=0;  j<S.C.size();  j++) 

{ 

mi=S. C[j],  particles. size(); 
if(mi==0) 
continue; 
ni++; 

ni_mi+=mi; 

ni_mi2+=mi*mi; 

ni_mi3+=mi*mi*mi; 

} 

//Include  Calculation  of  Radius  of  Gyration  and  asphericity  parameter  using  Rudnick  and  Gaspari, 
Science  1987 

gsl_matrix*  T  =  gsl_matrix_alloc(3,  3);//Gyration  tensor 
gsl_vector*  eval  =  gsl_vector_alloc(3);  //Eigenvalues 
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gsl_eigen_symm_workspace*  w  =  gsl_eigen_symm_alloc(3);//Workspace  for  eigenvalue 
computation 

double  mean[3];//mean  coordinates 
list<int>::iterator  it; 

double  nav=0.0;  //number  of  chains  which  are  not  dimers 
//we  compute  the  averages  ans  std  error  of  the  averages 

double  R_2=0.0,  dR_2=0.0,  A_3=0.0,  dA_3=0.0,  lb_2=0.0,  dlb_2=0.0,  temp=0.0,  lambda=0.0, 
dlambda=0.0; 

//Loop  over  all  chains 

for(int  j=0;  j<S.C.size();  j++) 

{ 

double  n=double(S. C[j], particles. size()); 

//Exclude  chains  with  <2  particles 
if(n<2.0) 
continue; 
nav=nav+1.0; 

//Compute  means 

double  xl=0.0,  x2=0.0,  x3=0.0,  xlxl=0.0,  xlx2=0.0,  x2x2=0.0,  x2x3=0.0,  x3xl=0.0,  x3x3=0.0, 
contour_length=0.0; 

double  txl,  tx2,  tx3; 

//iterate  over  particles  of  the  chain  and  compute  means 
for  ( it=S.C[j], particles. begin() ;  it  !=  S.C[j], particles. end();  it++  ) 

{ 

txl=S.P[*it].coord.x; 
tx2=S.P[*it].coord.y; 
tx3=S.P[*it], coord. z; 

xl+=txl; 

x2+=tx2; 

x3+=tx3; 

xlxl+=txl*txl; 
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xlx2+=txl*tx2; 

x2x2+=tx2*tx2; 

x2x3+=tx2*tx3; 

x3xl+=tx3*txl; 

x3x3+=tx3*tx3; 

//loop  over  all  bonds  of  particle 
for(int  k=0;  k<S.P[*it].nbonds;  k++) 
if(*it>S.P[*it].bonded_nbr[k]) 

{ 

temp=S.  P[*it], coord.  real_d2(S.P[S.P[*it].bonded_nbr[k]].  coord); 

contour_length+=sqrt(temp); 

lb_2+=temp; 

dlb_2+=temp*temp; 

} 

} 

XYZ  end(txl,tx2,tx3); 

double  R_e=sqrt(S.P[*(S.C[j], particles. begin())]. coord. real_d2(end)); 

temp=R_e/contour_length; 

lambda+=temp; 

dlambda+=temp*temp; 

xl/=n; 

x2/=n; 

x3/=n; 

xlxl/=n; 

xlx2/=n; 

x2x2/=n; 

x2x3/=n; 

x3xl/=n; 

x3x3/=n; 

//Fill  the  gyration  tensor 
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gsl_matrix_set(T,0,0,xlxl-xl*xl); 

gsl_matrix_set(T,0,l,xlx2-xl*x2); 

gsl_matrix_set(T,l,0,xlx2-xl*x2); 

gsl_matrix_set(T,l,l,x2x2-x2*x2); 

gsl_matrix_set(T,l,2,x2x3-x2*x3); 

gsl_matrix_set(T,2,l,x2x3-x2*x3); 

gsl_matrix_set(T,2,2,x3x3-x3*x3); 

gsl_matrix_set(T,0,2,x3xl-x3*xl); 

gsl_matrix_set(T,2,0,x3xl-x3*xl); 

//Compute  the  Eigenvalues 
gsl_eigen_symm(T,  eval,  w); 

//Sort  the  eigenvalues  in  ascending  order 
gsl_sort_vector(eval); 

double  tRl,  tR2,  tR3;  //store  temporarily  eigenvalues  in  descending  order 

tRl=gsl_vector_get(eval,  2); 

tR2=gsl_vector_get(eval,  1); 

tR3=gsl_vector_get(eval,  0); 

temp=(tRl+tR2+tR3); 

R_2+=temp; 

dR_2+=temp*temp; 

temp=0.5*((tRl-tR2)*(tRl-tR2)+(tR2-tR3)*(tR2-tR3)+(tR3-tRl)*(tR3- 

tRl))/((tRl+tR2+tR3)*(tRl+tR2+tR3)); 

A_3+=temp; 

dA_3+=temp*temp; 

} 

if(nav>0.0) 

{ 

R_2/=nav; 

dR_2=sqrt((dR_2/nav-R_2*R_2)/nav); 

A_3/=nav; 
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dA_3=sqrt((dA_3/nav-A_3*A_3)/nav); 

lb_2/=S.NB0NDS; 

dlb_2=sqrt((dlb_2/S.NBONDS-lb_2*lb_2)/S.N  BONDS); 
lambda/=nav; 

dlambda=sqrt((dlambda/nav-lambda*lambda)/nav); 

} 

gsl_eigen_symm_free(w); 
gsl_matrix_free(T); 
gsl_vecto  r_f  ree(eva  I ); 
ofstream  out; 

string  MCFileName=S.MCDirName+"_MC.Iog"; 
out.open(MCFileName.c_str(),ios::app); 


out<<setw(12)«i«"\t"«setw(12)«time«"\t"«setw(12)«accept«"\t"«setw(8)«S.NCHAINS« 

"\t"«setw(12)«double(ni_mi)/double(ni)«"\t"«setw(12)«double(ni_mi2*ni)/double(ni_mi*ni_ 

mi)«"\t"«setw(12)«R_2«"\t"«setw(12)«A_3«"\t"«setw(12)«lb_2«"\t"«setw(12)«dR_2 

«"\t"«setw(12)«dA_3«"\t"«setw(12)«dlb_2«"\t"«setw(12)«lambda«"\t"«setw(12)«dla 

mbda«endl; 

out.close(); 


} 


//Returns  acceptance  fraction 
double  MC::MoveParticle(int  move) 

{ 

XYZ  newpos; 

double  rnew,  rold,  delta=0.0,  accept=0.0; 
int  i,j,k,l,new_clD,  temp_clD; 

list<int>:  iterator  it; 

XYZ  d  iff; 

for(k=0;  k<S.NT;  k++) 

{ 
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i=gsl_rng_uniform_int(S.gsl_r,S.NT); 

newpos=RandomMove(S.P[i], coord, S.MCstep,gsl_rng_uniform(S.gsl_r),gsl_rng_uniform(S.gsl_r)); 
delta=0.0; 

//Only  iterate  over  the  cell  where  the  new  particle  is  and  the  neighbors  of  that  cell 
//Find  id  of  new  cell 

new_clD=Gridlndex(image(newpos,S.L),n_C,d_C,S.L); 

int  new_bond=-l; 

double  r_newbond=S.L*S.L; 

//Add  new  U 
for(l=0;  l<nbr_C;  I++) 

{ 

//ID  of  neighboring  cell 
temp_clD=C[new_clD].nbr[l]; 

for(it=C[temp_clD].plist.begin();  it !=C[temp_cl D] . plist.end();  it++) 

{ 


j=*it; 

if(j!=i) 

{ 

//image  distance 

rnew=min_d2(S.P[j].coord,newpos,S.L); 

delta+=S.E.U(rnew); 

//real  distance 

rnew=S.P[j], coord.  real_d2(newpos); 

//also  see  if  we  need  to  form  new  bonds:  Form  new  bonds  if  the  particles  are  non- 
bonded,  located  at  the  ends  and  less  than  the  maximum  bond  length  for  forming  a  bond  (real  distance) 

if(S.P[j].chain_ID!=S.P[i].chain_ID  &&  S.P[j].type=='B'  &&  S.P[i].type=='B'  && 
rnew<S.lmax_bond2) 

{ 

if(rnew<r_newbond) 
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{ 

r_newbond=rnew; 

new_bond=j; 

} 

} 

} 

} 

} 

//Subtract  old  U 
for(l=0;  l<nbr_C;  I++) 

{ 

//ID  of  neighboring  cell 
temp_clD=C[S.P[i].clD].nbr[l]; 

for(it=C[temp_clD].plist.begin();  it !=C[tem p_cl D] .plist.end();  it++) 

{ 

j=*it; 

if(j!=i) 

{ 

rold=min_d2(S.P[j].coord,S.P[i].coord,S.L); 

delta-=S.E.U(rold); 

} 

} 

} 

//add  bonded  FENE 
for(j=0;  j<S.P[i].nbonds;  j++) 

{ 

rnew=newpos.real_d2(S.P[S.P[i].bonded_nbr[j]]. coord); 
rold=S.  P[i] .  coord.  real_d2(S.P[S.P[i].bonded_nbr[j]].  coord); 
delta+=S.E.FENE(rnew)-S.E.FENE(rold); 
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//Add  additional  flow  term  if  Pe>0 
if(S.Pe>0.0) 

{ 

diff=newpos-S.P[i], coord; 
if(move==0) 

delta-=Q*hfunc(S.P[i].coord.y,S.Lm,S.PHI)*diff.x/S.MCstep; 
else  if(move==l) 

delta-=Q*hfunc(S.P[i].coord.z,S.Lm,S.PHI)*diff.y/S.MCstep; 

else 

delta-=Q*hfunc(S.P[i].coord.x,S.Lm,S.PHI)*diff.z/S.MCstep; 

} 

if(Glauber(delta,gsl_rng_uniform(S.gsl_r))) 

{ 

//Accept  move 
S.P[i].coord=newpos; 
accept+=1.0; 
energy+=delta; 

//make  new  bond  if  any 
if(new_bond!=-l) 

{ 

int  new_id=S.P[i].chain_ID; 

int  old_id=S.P[new_bond].chain_ID; 

//change  particle  types 
S.P[i].type='A'; 

S.P[new_bond].type='A'; 

//change  chain  ID  of  list  of  the  moved  particles 

for  ( it=S.C[old_id], particles. begin() ;  it  !=  S.C[old_id], particles. end();  it++  ) 
S.P[*it].chain_ID=new_id; 
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//merge  particles  list  of  new  chain  from  the  old  chain 

S.C[new_id],  particles. splice(S.C[new_id].  particles. end(),S.C[old_id],  particles); 

//add  new_bond  bonded  nbr  for  particle  i  and  vice  versa,  increase  #bonds  by  1 

S.P[i].bonded_nbr.push_back(new_bond); 

S.P[new_bond].bonded_nbr.push_back(i); 

S.P[i].nbonds++; 

S.P[new_bond].nbonds++; 

//do  not  remove  old  chain  list  as  it  messes  up  old  chainJDs 
S.NCHAINS— ; 

S.NBONDS++; 

} 

//update  cell  list  if  move  results  in  change  of  cell 
if(new_clD!=S.P[i].clD) 

{ 

C[S.P[i].clD].n— ; 

C[new_clD].n++; 

C[S.P[i].clD].plist.remove(i); 

C[new_clD].plist.push_back(i); 

S.P[i].clD=new_clD; 

} 

} 

} 

return  accept/double(S.NT); 

} 

bool  MC::Glauber(double  delta,  double  rand) 
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{ 


if(1.0/(exp(delta)+1.0)>rand) 
return  true; 
else 

return  false; 

} 

double  MC::TotalEnergy() 

{ 

double  totalenergy=0.0; 
double  r2; 

for(int  i=0;  i<S.NT;  i++) 

{ 

for(int  j=0;  j<S.NT;  j++) 

{ 

if(j!=i) 

{ 

r2=min_d2(S.P[i].coord,S.P[j].coord,S.L); 

totalenergy+=S.E.LJ(r2); 

} 

} 

for(int  j=0;  j<S.P[i].nbonds;  j++) 

{ 

r2=S.  P[i], coord.  real_d2(S.P[S.P[i].bonded_nbr[j]]. coord); 
totalenergy+=S.E.FENE(r2); 

} 

} 

return  totalenergy*0.5; 

} 

void  MC::CreateCellList() 
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{ 

C.clearQ; 

nbr_C=27; 

cout«"Creating  Cell  List"«endl; 
int  i,j,k; 

//Find  number  of  cells 

n_C=int(ceil(S.L/S.lmax_bond));//cell  width=maximum  length  to  form  a  bond 
if(n_C<l) 
n_C=l; 

n_C3=n_C*  n_C*  n_C; 

//Check  if  number  of  cel ls>  number  of  atoms  (each  cell  must  contain  nint  atoms  on  an  average) 
int  nint=l; 

if(n_C3  >  nint*S.NT  |  |  n_C3<0  |  |  n_C3!=n_C3) 

{ 

cout«"  number  of  cells>  number  of  atoms  (adjusting  s.t.  each  cell  must  contain  nint  atoms  on  an 
average)"«endl; 

n_C=int(floor(pow(double(S.NT*nint),l. 0/3.0))); 
n_C3=n_C*  n_C*  n_C; 

} 

if(n_C<3) 

{ 

cout«"n_C<3,.  Cell  List  will  not  work  here.,  giving  up"«endl; 
exit(l); 

} 

d_C=S.L/double(n_C); 

d_C2=d_C*d_C; 


cout«"n_C3="«n_C3«endl; 
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//Allocate  Grid 
Grid  g; 
try 
{ 

C.reserve(n_C3); 

} 

catch  (int  e) 

{ 

cout«"Memory  issues  in  cell  list  allocation..  exiting"«endl; 
exit(l); 

} 

for(k=0;  k<n_C;  k++) 

{ 

for(j=0;  j<n_C;  j++) 

{ 

for(i=0;  i<n_C;  i++) 

{ 

g.cm.x=(double(i)+0.5)*d_C-0.5*S.L; 

g.cm.y=(double(j)+0.5)*d_C-0.5*S.L; 

g.cm.z=(double(k)+0.5)*d_C-0.5*S.L; 

g.n=0; 

C.push_back(g); 

} 

} 

} 

cout«" Filling  neighbors"«endl; 
int  il,  jl,  kl,  i2,  j2,  k2,  indexn; 
for(i=0;  i<n_C3;  i++) 

{ 

try 

{ 
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C[i].nbr.reserve(27); 


} 

catch(int  e) 

{ 

cout«"Memory  issues  in  nbr  allocation..  exiting"«endl; 
exit(l); 

} 

} 

//Fill  neighbors 
for(i=0;  i<n_C3;  i++) 

{ 

GridLoc(il,jl,kl,n_C,i); 
for(i2=i  1-1;  i2<=il+l;  i2++) 

{ 

f°r(j2=j  1-1;  j2<=j  1+1;  j2++) 

{ 

for(k2=kl-l;  k2<=kl+l;  k2++) 

{ 

indexn=Gridlndex(i2,j2,k2,n_C); 

C[i].nbr.push_back(indexn); 

} 

} 

} 

} 

cout«"Checking  list"«endl; 
for(i=0;  i<n_C3;  i++) 

{ 

if(C[i].nbr.size()!=unsigned(nbr_C)) 

{ 
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cout«"Error"«"\ti="«i«"\tsize="«C[i].nbr.size()«endl; 

exit(l); 


} 

} 

cout«"Flling  particle"«endl; 

//Fill  particles 
for(i=0;  i<S.NT;  i++) 

{ 

//Find  cell  for  this  particle 
k=Gridlndex(image(S.P[i].coord,S.L),n_C,d_C,S.L); 
//Fill  that  cell 
C[k].plist.push_back(i); 

S.P[i].clD=k; 

C[k].n++; 

} 

cout«"Cell  List  Created"«endl; 
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utils.h 


//MIXING:  utils.h  Utilities  Heade  (Revision  Date:  Nov  1,  2011) 
#ifndef  JJTILSJH 
#define  JJTILSJH 
#include  "header.h" 

#include  "xyz.h" 

XYZ  image(XYZ ,  double); 
double  min_d2(XYZ ,  XYZ  ,  double  ); 

XYZ  RandomMove(XYZ  ,  double  ,  double  ,  double  ); 
int  Gridlndex(int ,  int ,  int ,  int ); 
int  Gridlndex(XYZ,  int  n,  double  w,  double); 
void  GridLoc(int& ,  int&  ,  int&  ,  int ,  int ); 
double  myfmod(double  x,  double  y); 
double  hfunc(double ,  double,  double); 

#endif 
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xyz.h 


//MIXING:  XYZ  Class  to  store  and  manipulate  coordinates  (Revision  Date:  Nov  1,  2011) 

#ifndef  _XYZ_H 
#define  _XYZ_H 
#include  "header.h" 
class  XYZ 
{ 

public: 
double  x,y,z; 

void  set(double  _x,  double  _y,  double  _z){x=_x;  y=_y;  z=_z;} 

XYZ(double  _x,  double  _y,  double  _z){x=_x;  y=_y;  z=_z;} 

XYZ(){x=0.0;  y=0.0;  z=0.0;} 

XYZ  operator  +  (XYZ&  other){return  XYZ(x+other.x,y+other.y,z+other.z);} 

XYZ  operator  -  (XYZ&  other){return  XYZ(x-other.x,y-other.y,z-other.z);} 

XYZ  operator  /  (double  s){return  XYZ(x/s,y/s,z/s);} 

double  real_d2(XYZ&  other){return  (x-other.x)*(x-other.x)+(y-other.y)*(y-other.y)+(z-other.z)*(z 
other.z);} 

double  real_d(XYZ&  other){return  sqrt((x-other.x)*(x-other.x)+(y-other.y)*(y-other.y)+(z 
other.z)*(z-other.z));} 

void  my_abs(){x=fabs(x);  y=fabs(y);  z=fabs(z);} 
double  norm2(){  return  x*x+y*y+z*z; } 

//Image  of  particle  between  -0.5*L  and  0.5*L 
void  image(double  L) 

{ 


if(x>=0.5*L) 

x-=L; 

else  if(x<-0.5*L) 

x+— 1 

if(y>=0.5*L) 

y-=L; 

else  if(y<-0.5*L) 

y+= 

if(z>=0.5*L) 

z-=L; 

else  if(z<-0.5*L) 

z+=l 
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} 


}; 

#endif 
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energies.h 


//MIXING:  enegies.h  Energy  Class  (Revision  Date:  Feb  2,  2012) 

#if  ndef  _ENERGY_H 
#define  _ENERGY_H 
#define  BIGNUMBER  1.0e32 
class  Energy 
{ 

public: 

//FENE  Spring  and  Lennard  Jones  Hard  Core 
double  K,  I0,I0_2,  rcut,  epsilon,  theta,  ecut; 

void  lnitialize(double  K_FENE,  double  I0_FENE,  double  rcutJJ,  double  theta_LJ) 

{ 

K=K_FENE; 

I0=I0_FENE; 

I0_2=I0*I0; 

rcut=rcut_LJ; 

theta=theta_LJ; 

ecut=4.0/theta*(1.0/pow(rcut,12.0)-1.0/pow(rcut,6.0)); 

} 

double  FENE(double  12) 

{ 

if(l2<=IO_2) 

return  -0.5*K*l0_2*log(1.0-l2/l0_2)/theta; 

else 

return  BIGNUMBER; 

} 

double  U(double  r2) 

{ 

return  4.0/theta*(1.0/pow(r2,6.0)-1.0/(r2*r2*r2))-ecut; 

} 

}; 
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#endif 
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grid.h 


//MIXING:  grid.h  Grid  Class  (Revision  Date:  September  12,  2011) 

#if  ndef  _GRID_H 
#define  _GRID_H 
#include  "header.h" 

#include  "xyz.h" 
class  Grid 
{ 

public: 

XYZ  cm; 

int  n;//Number  of  particles 
list<int>  plist; 

vector<int>  nbr;  //List  of  neighboring  cells  including  itself:  NOT  IMPLEMENTED  IN  GRID  BUT  IN 
CELLLIST 

Grid(){cm.x=0.0;  cm.y=0.0;  cm.z=0.0;  n=0;} 

}; 

#endif 
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header.h 


//MIXING:  header.h  C++  and  library  headers  (Revision  Date:  Jan  27,  2012) 
#if  ndef  _HEADER_H 
#define  _HEADER_H 
#include  <fstream> 

#include  <iostream> 

#include  <iomanip> 

#include  <cstdio> 

#include  <cstdlib> 

#include  <cmath> 

#include  <vector> 

#include  <string> 

#include  <list> 

#include  <gsl/gsl_math.h> 

#include  <gsl/gsl_rng.h> 

#include  <gsl/gsl_randist.h> 

#include  <gsl/gsl_vector.h> 

#include  <gsl/gsl_permutation.h> 

#include  <gsl/gsl_sort_vector.h> 

#include  <gsl/gsl_matrix.h> 

#include  <gsl/gsl_sort_double.h> 

#include  <gsl/gsl_eigen.h> 

#include  <boost/program_options.hpp> 

#include  <ctime> 

#define  PI  3.14159265 

using  namespace  boost::program_options; 

using  namespace  std; 

#endif 
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Makefile 


PR0G1  =  MIXING 


SRC1  =  main.cpp  system. cpp  utils. cpp  mc.cpp 

0BJS1  =  ${SRCl:.cpp=.o} 

CXX  =  g++  -03 

CXXFLAGS=  -lboost_program_options  -Igsl  -Igslcblas 

LI BS=-l/software/boost/l. 41. 0/include/  -L/software/boost/1. 41. 0/lib/  -l/software/gsl/1. 14/include/  - 
L/software/gsl/1. 14/lib 


#CXXFLAGS=-03  -funroll-loops  -DNDEBUG 


all:  $(PR0G1) 

$( P ROG 1) :  $(0BJS1) 

$(CXX)  $(LIBS)  $(CXXFLAGS)  -o  $@  $A 


%.o:  %.cpp 

$(CXX)  $( LI BS)  -c  -o  $@  $< 


clean: 


rm  -rf  *.o 


distclean: 

rm  -f  $(PR0G1)  *.o  *. debug 
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mc.h 


//MIXING:  mc.h  MC  Class  (Revision  Date:  Jan  27,  2012) 

#ifndef  _MC_H 
#define  _MC_H 
#include  "system. h" 

#include  "utils. h" 

#include  "energies. h" 

#include  "grid.h" 

#include  "particle. h" 
class  MC 
{ 

public: 

System  S; 

double  energy,  time; 

//new  vector  for  particle  positions 
vector<Particle>  Pn; 

int  n_C,  n_C3,  nbr_C;  //number  of  nodes  of  cell  list  in  one  direction,  and  total  number  of  cells, 
#neighbors  of  cell 

double  d_C,  d_C2,  Q;  //width  of  cell  list  and  widthA2 

vector<Grid>  C; 
void  CreateCellList(); 

MC(){energy=0.0;  time=0.0; } 

void  WriteTemplate(); 
void  LogProfile(int,  double  ); 
void  Sweep(); 
double  MoveParticle(int); 
bool  Glauber(double,  double); 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


double  TotalEnergy(); 


}; 

#endif 
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particle. h 


//MIXING:  particle. h  Particle  Class  (Revision  Date:Nov  1,  2011) 
#if  ndef  _PARTICLE_H 
#define  _PARTICLE_H 
#include  "header.h" 

#include  "xyz.h" 
class  Particle 
{ 

public: 

XYZ  coord; 

int  chai n_l D;//l D  of  chain 
int  nbonds;  //number  of  bonds 
int  clD;//ID  of  cell  list  location 
char  type; 

vector<int>  bonded_nbr;  //list  of  bonded  neighbors 
Particle(){} 

}; 

#endif 
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system,  h 


//MIXING:  system. h  System  Class  (Revision  Date:  Jan  6,  2012) 
#if  ndef  _SYSTEM_H 
#define  _SYSTEM_H 
#include  "header.h" 

#include  "xyz.h" 

#include  "particle. h" 

#include  "chain. h" 

#include  "utils. h" 

#include  "energies. h" 
class  System 
{ 

public: 

vector<Chain>  C;  //List  of  chains 
vector<Particle>  P;  //List  of  particles 
Energy  E; 

const  gsl_rng_type  *  gsl_T; 
gsl_rng  *  gsl_r; 
string  MCDirName; 


/*  INPUT  PARAMETERS 


*  NCHAINS=Total  #chains  in  the  simulation  box 

*  NBEADS=#beads/chain 

*  GSL_SEED=Seed  for  gsl  random  number  generator 

* 

*  DERIVED  PARAMETERS 


*  NT=Total  #beads=NCHAINS*NBEADS 

*  L=Length  of  simulation  box  in  sigma  units;  RHO=NT(4/3  PI)lminA3/LA3  =>L=lmin*[NT(4/3 
PI)/RHO]A(-l/3) 
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*/ 


double  L,Lm,  PHI,  MCstep,  deltat,  lmax_bond,  lmax_bond2,  Pe;  //Length  of  Box,  Mixing  length,  MC 
step,  timestep,  maximum  length  to  form  a  new  bond 

int  NCHAINS,  NBEADS,  NT,  GSL_SEED,  NBONDS,  nsweep,  t_mixing;  //Number  of  chains  and  number 
of  beads/chain,  and  total  number  of  beads,  Seed  for  random  number  generator,  total  #bonds, 
#sweeps 


void  Readlnput(int  argc,  char  *argv[]) 

{ 

//inputs  for  Energy  class 

double  K_FENE,  I0_FENE,  rcut_U,  theta_U,  total_time; 
options_description  desc("Usage:\nMIXING  <options>"); 
desc.add_options() 

("help,h",  "print  usage  message") 

("Length, L",  value<double>(&L)->default_value(200.0),  "Box  size.,  (default  200.0)") 

("Lm,M",  value<double>(&Lm)->default_value(1.0),  "Lm/L=(Mixing  Length)/(Box  size)., 
(default  1.0)") 

("PHI,f",  value<double>(&PHI)->default_value(0,0),  "Random  Phase,  PHI  in  units  of  PL. 
(default  0.0)") 

("NCHAINS, C",  value<int>(&NCHAINS)->default_value(100),  "#chains  (default  100)") 

("NBEADS, B",  value<int>(&NBEADS)->default_value(2),  "#beads/chain  (default  2)") 

("K_FENE,K",  value<double>(&K_FENE)->default_value(30.0),  "K  for  FENE  (default  30.0)") 

("10,1",  value<double>(&IO_FENE)->default_value(1.5),  "10  for  FENE  (default  1.5)") 

("rcut,c",  value<double>(&rcut_LJ)->default_value(l. 122462),  "rcut  for  LJ(default 
2A(1/6)=1. 122462)") 

("theta, t",  value<double>(&theta_LJ)->default_value(1.0),  "theta  for  LJ  (default  1.0)") 

("lmax_bond,b",  value<double>(&lmax_bond)->default_value(1.5),  "maximum  bond  length 
to  form  new  bond  (default  1.5)") 

("Pe,P",  value<double>(&Pe)->default_value(100.0),  "Peclet  Number  (default  1000.0)") 

("MCstep, m",  value<double>(&MCstep)->default_value(0.10),  "MC  step  size  (default  0.1)") 

("time,s",  value<double>(&total_time)->default_value(100.0),  "total  time  in  tau_0  units 
(default  100.0)") 
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("GSL_SEED,g",  value<int>(&GSL_SEED)->default_value(10),  "seed  for  the  RNG  (default  10)"); 
variables_map  vm; 

store(parse_command_line(argc,  argv,  desc),  vm); 
notify(vm); 

if  (vm.count("help")) 

{ 

cout  «  desc  «  "\n"; 
exit(l); 

} 


Lm*=L; 

PHI*=PI; 

E.lnitialize(K_FENE,  I0_FENE,  rcut_LJ,  theta_LJ); 

//Calculate  derived  parameters 
NT=NCHAINS*NBEADS; 

lmax_bond2=lmax_bond*lmax_bond; 

//Initialize  Random  number 
gsl_rng_env_setup(); 

gsl_T  =  gsl_rng_default; 
gsl_r  =  gsl_rng_alloc(gsl_T); 
gsl_rng_set(gsl_r,  GSL_SEED); 

NBONDS=0; 

char  fname[200]; 

sprintf(fname,"_L_%.lf_NCFI_%d_Pe_%.lf_T_%.2f_K_%.2fJm_%.2f_Lm_%.2f_PFII_%.lf/",L, 
NCHAINS,  Pe,  thetaJJ,  K_FENE,lmax_bond,  Lm/L,  PHI/PI); 

MCDirName=fname; 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


char  command[500]; 

sprintf(command,  "mkdir  %s",MCDirName.c_str()); 
int  k=system(command); 

deltat=1.0/12.0*MCstep*MCstep; 

nsweep=int(ceil(total_time/deltat)); 

if(Pe>0.0) 

{ 

t_mixing=int(Lm*Lm/(3.0*Pe*deltat)); 

//t_mixing  we  define  is  one-third  of  that  used  in  Vladimir's  model 

cout<<"t_mixing="«t_mixing«endl; 

if(t_mixing<l) 

{ 

cout«"t_mixing<3...  Decrease  Pe"«endl; 
exit(l); 

} 

} 

else 

t_mixing=nsweep; 

} 

void  Create(); 
void  WriteMol2(int ); 
void  WriteDump(int ); 
void  WritePOV(int ); 

}; 

#endif 
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chain,  h 


//MIXING:  chain. h  Chain  Class  (Revision  Date:  Nov  1,  2011) 

#ifndef  _CHAIN_H 

#define  _CHAIN_H 

#include  "header.h" 

class  Chain 

{ 

public: 

list<int>  particles;  //list  of  particles  in  the  chain 

}; 

#endif 
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KMC  Magnetic  Self-replication  code 

################################################################ 

#  This  code  sets  up  and  executes  the  kinetic  Monte  Carlo 

#  algorithm  of  Prateek  et  al.  for  a  system  of  dipolar  colloids 

#  that  form  dimers  as  described  in  Dempster  et  al  at 

#  http://dx.doi.org/10.1103/PhysRevE.92.042305.  It  will  run  (slowly) 

#  in  a  python  interpreter  but  it  is  designed  to  be  translated  and 

#  compiled  via  shedskin.  It  is  not  optimized  for  python. 
################################################################# 

from  math  import  sqrt,  floor,pi,cos,sin,exp,ceil 

from  random  import  random 

from  time  import  clock 

from  os  import  getcwd 

import  sys,getopt 

path=getcwd()+'/' 

def  zrandom():  return  random()-.5 

#  dipole-dipole  interaction  energy 

def  E(x,  y,  z,  R,  vlx,  vly,  viz,  v2x,  v2y,  v2z): 

return  k*sig3/R**3*(vlx*v2x+vly*v2y+vlz*v2z-3.0/R**2*\ 
(vlx*x+vly*y+vlz*z)*(v2x*x+v2y*y+v2z*z)) 

#  Colloid  electrostatic  repulsion  if  1/kappa  <  diameter 
def  Q(r): 

return  q*exp(-kappa*r) 

#  If  we  set  all  box  dimensions  to  1,  this  finds  the  shortest  displacement  vector  between 
#two  points  with  periodic  boundary  conditions 

def  r(xO,  yO,  zO,  xl,  yl,  zl): 
rx  =  xO-xl-round(xO-xl) 
ry  =  yO-yl-round(yO-yl) 
rz  =  zO-zl-round(zO-zl) 
return  [rx,  ry,  rz,  sqrt(rx**2+ry**2+rz**2)] 

#  same  but  just  the  distance 
def  just_r(xO,yO,zO,  xl,yl,zl): 

rx=xO-xl-round(xO-xl) 
ry=yO-yl-round(yO-yl) 
rz=zO-zl-round(zO-zl) 
return  sqrt(rx**2+ry**2+rz**2) 

#rotate  about  an  axis  in  lab  frame 
def  S(axis,angle,x,y,z): 
u,v,w=axis 

assert  ,999999<u**2+v**2+w**2<l. 000001, 'non-normal  rotation  axis' 
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c=cos(angle) 

s=sin(angle) 

return  [u*(u*x+v*y+w*z)*(l-c)+x*c+(-w*y+v*z)*s, 
v*(u*x+v*y+w*z)*(l-c)+y*c+(w*x-u*z)*s, 
w*(u*x+v*y+w*z)*(l-c)+z*c+(-v*x+u*y)*s] 


#  external  field  functions 
def  Steady(t,  M): 

return  [0,  0,  M] 

def  Mix(t,  M,  MO): 

#Z_PERIOD,  XY_COEFF  are  set  as  globals  on  execution 
tO  =  t*1.0/Z_PERIOD  %  1.0 

if  t  <  20.25*Z_PERIOD:  z  =  cos(.25/20.25*t*2*pi/Z_PERIOD) 

elif  tO  <  .25:  z  =  1  -  sin(t*2*pi/Z_PERIOD) 

elif  tO  <  1:  z  =  -1  +  sin(t*2*pi/Z_PERIOD) 

elif  tO  <  1.5:  z  =  -1  -  sin(t*2*pi/Z_PERIOD) 

else:  z  =  1  +  sin(t*2*pi/Z_PERIOD) 

return  [M*cos(XY_COEFF/Z_PERIOD*2*pi*t)*sqrt(l-z**2), 
M*sin(XY_COEFF/Z_PERIOD*2*pi*t)*sqrt(l-z**2), 

M*z] 

#  for  normalizing  vectors 

def  makenormal(x,  y,  z,  normto=1.0): 

normer=normto*1.0/sqrt(x**2+y**2+z**2) 
return  [x*normer,y*normer,z*normer] 

#  algorithm  uses  the  box  method  for  finding  neighbors 
def  tobox(x,  y,  z): 

return  int(floor((x+.5)/RC)+floor((y+.5)/RC)*nbox+floor((z+.5)/RC)*nbox**2) 

#  contains  a  list  of  particles  and  a  list  of  neighbors 
class  Box: 

def _ init _ (self,i): 

self.parts=set([]) 
neighbors=[] 
for  dz  in  [0,  -1,  1]: 
for  dy  in  [0,  -1,  1]: 
for  dx  in  [0,  -1,  1]: 

ip  =  (i/(nbox**2)+dz)%nbox*nbox**2+\ 
(i/nbox+dy)%nbox*nbox+(i+dx)%nbox 
neighb  ors .  append(ip) 
self.neighbors=list(set(neighbors)) 
def  part(self,p): 

self.parts.add(p) 
def  depart(self,p): 
self.parts.remove(p) 
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#  particles 
class  P: 

def _ init _ (self,  x,y,z,  is_dyad=False): 

self.x,  self.y,  self.z  =  x,  y,  z 
self.dyad  =  is_dyad 
self.box  =  tobox(x,  y,  z) 

assert  self.box<=nbox**3,  str(self.x)+'  '+str(self.y)+'  '+str(self.z)+'  ’+str(self.box) 

boxes[self.box].part(self) 

self.vx,  self.vy,  self.vz  =  0,0,l#dipole  vector 

self.tx,  self.ty,  self.tz  =  l,0,0#sticky  point 

for  i  in  range(3): 

axis  =  makenormal(zrandom(),  zrandom(),  zrandom()) 
rotangle  =  2*pi*zrandom() 

#dipole  direction 

self.vx,  self.vy,  self.vz  =  S(axis,  rotangle, 
self.vx,  self.vy,  self.vz) 

#binding  site  direction 
self.tx,  self.ty,  self.tz  =  S(axis,  rotangle, 
self.vx,  self.vy,self.vz) 

locations  of  binding  sites  on  colloid  surfaces 

self.TX  =  self.x+.5*sig*self.tx 

self.TY  =  self.y+.5*sig*self.ty 

self.TZ  =  self.z+.5*sig*self.tz 

self.gx,  self.gy,  self.gz=x,  y,  z 

self.gvx,  self.gvy,  self.gvz  =  self.vx,  self.vy,  self.vz 

self.gtx,  self.gty,  self.gtz  =  self.tx,  self.ty,  self.tz 

self.normalize() 

self.gTX,  self.gTY,  self.gTZ  =  self.TX,  self.TY,  self.TZ 
self.deltaE  =  0 
global  particles 
particles. add(self) 

def  normalize(self):#cleans  up  floating  point  errors  from  rotations 
(self.tx,  self.ty,  self.tz)  =  makenormal(self.tx,  self.ty,  self.tz) 
dotvt  =  self.vx*self.tx+self.vy*self.ty+self.vz*self.tz 
#Gr  am-  Schmidt 
self.vx  -=  dotvt*self.tx 
self.vy  -=  dotvt*self.ty 
self.vz  -=  dotvt*self.tz 

(self.vx,  self.vy,  self.vz)  =  makenormal(self.vx,  self.vy,  self.vz) 
dotvt  =  self.vx*self.tx+self.vy*self.ty+self.vz*self.tz 
assert  abs(dotvt)<. 00001,  str(dotvt) 

#class  members  with  leading  g  are  "ghost"  particles  for  trying  moves 
self.gtx,  self.gty,  self.gtz  =  makenormal(self.gtx,  self.gty,  self.gtz) 
dotvt  =  self.gvx*self.gtx  +  self.gvy*self.gty  +  self.gvz*self.gtz 
self.gvx  -=  dotvt*self.gtx 
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self.gvy  -=  dotvt*self.gty 
self.gvz  -=  dotvt*self.gtz 

self.gvx,  self.gvy,  self.gvz  =  makenormal(self.gvx,  self.gvy,  self.gvz) 
dotvt  =  self.gvx*self.gtx  +  self.gvy*self.gty  +  self.gvz*self.gtz 
assert  abs(dotvt)<. 00001,  str(dotvt) 

def  ghost(self):  #find  new  coordinates  for  a  trial  move 
if  random()>.75:  translate 

[ax,  ay,  az]  =  makenormal(zrandom(),  zrandom(),  zrandom(),  a) 
self.gx  =  self.x+ax 
self.gy  =  self.y+ay 
self.gz  =  self.z+az 
else:  #rotate 

axis=makenormal(zrandom(),zrandom(),zrandom()) 
self.gvx,  self.gvy,  self.gvz  =  S(axis,  angle, 
self.vx,  self.vy,  self.vz) 
self.gtx,  self.gty,  self.gtz  =  S(axis,  angle, 
self.tx,  self.ty,  self.tz) 
self.gTX  =  self.gx+.5*sig*self.gtx 
self.gTY  =  self.gy+.5*sig*self.gty 
self.gTZ  =  self.gz+.5*sig*self.gtz 

assert  just_r(self.x,  self.y,  self.z,  self.gx,  self.gy,  self.gz)<=1.01*a,  "monomer  ghost  error" 

def  forcemove(self):  #move  acceptance  -  ghost  coordinates  become  actual  coordinates 
self.x  =  (self.gx+.5)%l-.5 
self.y  =  (self.gy+.5)%l-.5 
self.z  =  (self.gz+.5)%l-.5 

self.vx,  self.vy,  self.vz  =  self.gvx,  self.gvy,  self.gvz 
self.tx,  self.ty,  self.tz  =  self.gtx,self.gty, self.gtz 
self.TX,  self.TY,  self.TZ  =  self.gTX,  self.gTY,  self.gTZ 
self.normalize() 

box2  =  tobox(self.x,  self.y,  self.z) 
if  box2  !=  self. box: 

boxes[self.box].depart(self) 
self.box  =  box2 
boxes[self.box].part(self) 

#find  the  energy  cost  of  a  move 
def  energy(self): 

global  U,  particles,  boxes 

dyadize  =  False 

U0  =  0  #stores  current  energy 

U1  =  0  #stores  energy  after  the  move 

legal=True 

for  neighb  in  boxes  [self  .box], neighbors: 
if  legal: 

if  neighb  ==  self.box:  Set  =  boxes[neighb].parts-set([self]) 
else:  Set  =  boxes[neighb], parts 
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if  self.dyad: 

Set  =  Set  -  set([self.dyadpair]) 
for  p  in  Set: 

rlx,  rly,  rlz,  rl  =  r(self.gx,  self.gy,  self.gz,  p.x,  p.y,  p.z)  #ghost 
if  rl  >  sig:  #move  not  disallowed  by  hard  core  potential 

rOx,  rOy,  rOz,  rO  =  r(self.x,  self.y,  self.z,  p.x,  p.y,  p.z) 
if  rO  <  RC: 

UO  +=  E(rOx,  rOy,  rOz,  rO,  self.vx,  self.vy,  self.vz,  p.vx,  p.vy,  p.vz) 
if  rO  <  2*sig:  #cutoff  distance  for  repulsion 
UO  +=  Q(rO  -  sig) 
if  rl  <  RC: 

U1  +=  E(rlx,  rly,  rlz,  rl,  self.gvx,  self.gvy,  self.gvz,  p.vx,  p.vy,  p.vz) 
if  rl  <  2*sig: 

U1  +=  Q(rl  -  sig) 

if  rl  <  brangetest:  #  cutoff  to  check  for  binding  event 

rT  =  just_r(self.gTX,  self.gTY,  self.gTZ,  p.TX,  p.TY,  p.TZ) 
if  not  self.dyad  and  not  p.dyad  and  rT<=brange: 

#  set  variables  to  create  dimer 
U1  +=  bE 
dyadize  =  True 
self.newdyad  =  p 

elif  rl  <=  sig: 
legal  =  False 
break 
else:  break 
if  legal: 

U1  -=  self.gvx*Mx  +  self.gvy*My  +  self.gvz*Mz 
UO  -=  self.vx*Mx  +  self.vy*My  +  self.vz*Mz 
self.deltaE  =  U1-U0 
return  (legal,  dyadize) 

def  move(self,  dyadize): 

if  abs(self.deltaE)<=20:  P  =  1.0/(l+exp(self.deltaE))  #move  acceptance 

elif  self.deltaE  <  -20:  P  =  1  #avoid  overflow  errors 

elif  self.deltaE  >  20:  P  =  0 

prob  =  random() 

if  P  >  prob: 

self.forcemove() 
global  U 
U  +=  self.deltaE 
global  moved 
moved  +=  2 
if  dyadize: 
global  ndyads 
ndyads  +=  1 
self.dyad  =  True 
self.newdyad.dyad  =  True 
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if  allow_dyad: 

Dyad(self,self.newdyad)  #particles  now  move  as  dimer  members 

else: 

self.gx,  self.gy,  self.gz  =  self.x,  self.y,  self.z 
self.gvx,  self.gvy,  self.gvz  =  self.vx,  self.vy,  self.vz 
self.gtx,  self.gty,  self.gtz  =  self.tx,  self.ty,  self.tz 

#pair  of  bound  particles 
class  Dyad: 

def _ init _ (self,  pi,  p2): 

self.pl  =  pi 
pi.  dyad  =  True 
p  2.  dyad  =  True 
self.p2  =  p2 
self.normalize() 
self.deltaE  =  0 
self.pl. dyadpair  =  self.p2 
self.p2.dyadpair  =  self.pl 
self.pl. dyadmaster  =  self 
self.p2.dyadmaster  =  self 
global  dyads,  remove_p 
dyads,  add(self) 
remove_p .  append(p  1) 
remove_p .  append(p2) 

def  axialize(self): 

self.axisx,  self.axisy,  self.axisz,  self.axisd  =  r(self.p2.x,  self.p2.y,  self.p2.z, 

self.pl.x,  self.pl.y,  self.pl. z) 

self.gaxisx,  self.gaxisy,  self.gaxisz,  self.axisd  =  r(self.p2.x,  self.p2.y,  self.p2.z, 

self.pl.x,  self.pl.y,  self.pl. z) 

self.axisN  =  makenormal(self.axisx,  self.axisy,  self.axisz) 
self.negaxisN  =  [-self. axisN[0], -self. axisN[l], -self. axisN[2]] 

def  normalize(self): 
self.axialize() 

[self.pl.tx,  self.pl.ty,  self.pl.tz]  =  self.axisN 
[self.p2.tx,  self.p2.ty,  self.p2.tz]  =  self.negaxisN 
[self.pl. gtx,  self.pl. gty,  self.pl. gtz]  =  self.axisN 
[self.p2.gtx,  self.p2.gty,  self.p2.gtz]  =  self.negaxisN 
self.pl.  normalizeO 
self.p2.normalize() 

def  ghost(self): 

global  dal,  da2  #diffusion  coeffecticients 
coin  =  random() 

if  coin  <  .375:  #  translate  along  axis  of  dimer 
whichway=2  *round(random())- 1 

ax,  ay  ,az  =  self.axisx*whichway*dal,  self.axisy*whichway*dal,  self.axisz*whichway*dal 
for  p  in  self.pl,  self.p2: 
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p.gx,  p.gy,  p.gz  =  p.x+ax,  p.y+ay,  p.z+az 
elif  coin  <  .5:  translate  perpendicular  to  axis 

[ax,  ay,  az]=makenormal(zrandom(),zrandom(),zrandom()) 
dotaxis=ax*self.axisN[0]+ay*self.axisN[l]+az*self.axisN[2] 
ax  -=  dotaxis*self.axisN[0] 
ay  -=  dotaxis*self.axisN[l] 
az  -=  dotaxis*self.axisN[2] 

[ax,ay,az]  =  makenormal(ax,  ay,  az,  da2) 
for  p  in  self.pl, self.p2: 

p.gx,  p.gy,  p.gz  =  p.x+ax,  p.y+ay,  p.z+az 
elif  coin  <  .875:  #rotate  perpendicular  to  axis 

[ax,  ay,  az]  =  makenormal(zrandom(),zrandom(),zrandom()) 
dotaxis  =  ax*self.axisN[0]+ay*self.axisN[l]+az*self.axisN[2] 
ax  -=  dotaxis*self.axisN[0] 
ay  -=  dotaxis*self.axisN[l] 
az  -=  dotaxis*self.axisN[2] 
axis  =  makenormal(ax,ay,az) 

(self.gaxisx,  self.gaxisy,  self.gaxisz)  =  S(axis,dangle2,self.axisx,self.axisy,self.axisz) 
(self.gaxisx,  self.gaxisy,  self.gaxisz)  =  makenormal(self.gaxisx,  self.gaxisy,  self.gaxisz, 

sig+.5*brange) 

self.gaxisd  =  sqrt(self.gaxisx**2+self.gaxisy**2+self.gaxisz**2) 
self.centerx  =  self.pl.x  +  ,5*self.axisx 
self.centery  =  self.pl.y  +  ,5*self.axisy 
self.centerz  =  self.pl. z  +  .5*self.axisz 
self.pl. gx  =  self.centerx  -  .5*self.gaxisx 
self.pl. gy  =  self.centery  -  .5*self.gaxisy 
self.pl. gz  =  self.centerz  -  ,5*self.gaxisz 
self.p2.gx  =  self.centerx  +  ,5*self.gaxisx 
self.p2.gy  =  self.centery  +  ,5*self.gaxisy 
self.p2.gz  =  self.centerz  +  .5*self.gaxisz 
self.pl. gvx,  self.pl. gvy,  self.pl. gvz  =  S(axis,  dangle2, 
self.pl.vx,  self.pl.yy,  self.pl.vz) 
self.pl. gtx,  self.pl. gty,  self.pl. gtz  =  S(axis,  dangle2, 
self.pl.tx,  self.pl.ty,  self.pl.tz) 
self.p2.gvx,  self.p2.gvy,  self.p2.gvz  =  S(axis,  dangle2, 
self.p2.vx,  self.p2.vy,  self.p2.vz) 
self.p2.gtx,  self.p2.gty,  self.p2.gtz  =  S(axis,  dangle2, 
self.p2.tx,  self.p2.ty,  self.p2.tz) 
else:  #each  colloid  twists  independently  around  the  axis 
for  p  in  self.pl,  self.p2: 

whichway  =  2  *  ro  u  n  d  ( ra  n  d  o  m  ())- 1 
p.gvx,  p.gvy,  p.gvz=S(self.axisN,  whichway*danglel, 
p.vx,  p.vy,  p.vz) 
for  p  in  self.pl,  self.p2: 

p.gTX,  p.gTY,  p.gTZ=p.gx+.5*sig*p.gtx,  p.gy+.5*sig*p.gty,  p.gz+.5*sig*p.gtz 
assert  just_r(self.p  1.x,  self.pl.y,  self.pl. z,  self.pl. gx,  self.pl. gy,  self.pl. gz)<1.5*a,  \ 

'dyad  ghost  error  %f  %f  %f  %f  %f  %f'  %  (self.pl.x,  self.pl.y,  self.pl. z, 

self.pl. gx,  self.pl. gy,  self.pl. gz) 
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def  energy(self):  #calculate  energy  for  current  and  trial  coordinates 
legall,  nulll=self.pl.energy() 
legal2,  null2=self.p2.energy() 
if  legall  and  legal2: 

self.deltaE=self.pl.deltaE+self.p2.deltaE+\ 

E(self.gaxisx,  self.gaxisy,  self.gaxisz,  self.axisd,  self.pl. gvx,  self.pl. gvy,  self.pl. gvz, 
self.p2.gvx,  self.p2.gvy,  self.p2.gvz)-\ 

E(self.axisx,  self.axisy,  self.axisz,  self.axisd,  self.pl.vx,  self.pl.vy,  self.pl.vz, 
self.p2.vx,  self.p2.vy,  self.p2.vz) 
return  (legall  and  legal2) 

def  move(self):  #decide  whether  to  accept  the  move 
if  self.deltaE  <  -20:  P  =  1 
elif  self.deltaE  >  20:  P  =  0 
else:  P=1.0/(l+exp(self.deltaE)) 
if  P>random(): 

for  p  in  self.pl,  self.p2: 

p.forcemove() 
self.normalize() 
global  U 
U+=self.deltaE 
global  moved 
moved+=l 
else: 

for  p  in  self.pl,  self.p2: 

P-gx,  P-gy,  P-gz  =  P-x,  p-y>  P-z 
P •  gvx,  p.gvy,  p.gvz  =  p.vx,  p.vy,  p.vz 
p.gtx,  p.gty,  p.gtz  =  p.tx,  p.ty,  p.tz 


def  add_particle(is_dyad=False):  #find  a  free  position  so  particles  are  >  sigma  apart 
placed  =  False 
while  not  placed: 
placeable  =  True 

x,  y,  z  =  zrandom(),  zrandom(),  zrandom() 
testbox  =  tobox(x,  y,  z) 
for  neighb  in  boxes  [testbox], neighbors: 
for  p  in  boxes[neighb]. parts: 

if  just_r(x,  y,  z,  p.x,  p.y,  p.z)  <  sig: 
placeable  =  False 
break 
if  placeable: 

P(x,  y,  z,  is_dyad) 
placed  =  True 

#create  simulation  with  particles  and  a  specified  number  of  dimers 
def  setup(n,  makedyads): 

global  particles,  dyads,  boxes,  U,  ndyads 
U=0 

particles  =  set([]) 
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dyads  =  set([]) 
boxes  =  [] 
ndyads  =  0 

for  i  in  range(nbox**3): 

boxes. append(Box(i)) 
for  i  in  range(n): 

add_particle() 
for  i  in  range(makedyads): 
if  allow_dyad: 
for  p  in  particles: 

x,  y,  z  =  p.x+1.01*sig*p.tx,  p.y+1.01*sig*p.ty,  p.z+1.01*sig*p.tz 
placeable  =  True 
for  p2  in  particles: 

if  just_r(x,  y,  z,  p2.x,  p2.y,  p2.z)  <  sig: 
placeable=False 
break 

if  placeable: 

newp  =  P(x-round(x),y-round(y),z-round(z)) 

[newp.tx,  newp.ty,  newp.tz,  newp.gtx,  newp.gty,  newp.gtz]  =  [ 
-P-tx,-p.ty,-p.tz]*2 

[newp.TX,  newp.gTX]  =  [newp.x+.5*sig*newp.tx]*2 
[newp.TY,  newp.gTY]  =  [newp.y+.5*sig*newp.ty]*2 
[newp.TZ,  newp.gTZ]  =  [newp.z+.5*sig*newp.tz]*2 
ndyads+=l 

dotv  =  newp.tx*newp.vx+newp.ty*newp.vy+newp.tz*newp.vz 
newp.vx  -=  dotv*newp.vx 
newp.vy  -=  dotv*newp.vy 
newp.vz  -=  dotv*newp.vz 

[newp.vx,  newp.vy,  newp.vz,  newp.gvx,  newp.gvy,  newp.gvz]  =  makenormal( 
newp.vx,  newp.vy,  newp.vz)*2 
Dyad(p,newp) 
break 

else: 

add_particle(is_dyad=True) 


def  simulate(n,  makedyads,  sweeptime,  timeinc):  #create  and  run  a  simulation  for  specified  time 
global  direction,  ndyads,  moved,  Mx,  My,  Mz,  remove_p,  tau,  tm 

f  =  open(path+name+'.txt','w+') 
f.write('0.0  %i  \n'  %makedyads) 
f.closeQ 

moved  =  0.0 
delete_p  =  [] 
remove_p  =  [] 
delete_dyad  =  [] 
setup(n,  makedyads) 

Uout  =  [] 
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dyadout  =  [] 
tO  =  clock() 

if  xyz:  f  =  open(path+name+'.xyz',  'w+') 

simtime  =  0.0 

mixtime  =  0.0 

sweep  =  0 

mix  =  False 

while  simtime  <  sweeptime: 
ndyadsO  =  ndyads 
sweep  +=  1 
mixtime  +=  timeinc 

#status  of  external  fields  -  refer  to  Dempster  et  al.  for  explanation 
if  mixtime  >  tm  and  mix: 

print  'stopping  mix  at  %i,  number  of  dimers  %i,  time  %.0f'  %  ( 
sweep/savef,  ndyads,  simtime) 
mix  =  False 
mixtime  =  0.0 

elif  mixtime  >  tau  and  not  mix: 

print  'starting  mix  at  %i,  number  of  dimers  %i,  time  %.0f'  %  ( 
sweep/savef,  ndyads,  simtime) 
mix  =  True 
mixtime  =  0.0 

if  mix:  [Mx,  My,  Mz]  =  Mix(mixtime,  M,  M0) 
else:  [Mx,  My,  Mz]  =  Steady(mixtime,  M0) 
for  p  in  particles: 
if  random()  >  .5: 
p.ghostQ 

legall,dyadizef  =  p.energy() 
if  legall:  p.move(dyadizel) 
for  d  in  dyads: 
d.ghost() 

legall  =  d.energy() 
if  legalf :  d.moveQ 
for  p  in  remove_p: 

particles.remove(p) 
remove_p  =  [] 

if  ndyads  !=  ndyadsO: 

with  open(path+name+'.txt','a')  as  f: 
f.write('%f  %i\n'  %  (simtime,  ndyads)) 


if  sweep%savef  ==  0: 
if  xyz: 

f.write(str(3*(n+makedyads))+'\n') 
f.write('frame  '+str(sweep)+'\n') 
for  p  in  particles: 

f.write('0  '+str(1000.*p.x)+'  '+str(1000.*p.y)+'  '+\ 
str(1000.*p.z)+'\n') 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


f.write('H  '+str(1000.*(p.x+.5*sig*p.vx))+'  '+str(1000.*(p.y+.5*sig*p.vy))+'  '+\ 
str(1000.*(p.z+.5*sig*p.vz))+'\n') 
f.write('He  '+str(1000  *p.TX)+'  '+str(1000  *p.TY)+'  '+\ 
str(1000.*p.TZ)+'\n') 
for  d  in  dyads: 
for  p  in  d.pl,  d.p2: 

f.write('C  '+str(1000.*p.x)+'  '+str(1000.*p.y)+'  '+\ 
str(1000.*p.z)+'\n') 

f.write('H  '+str(1000.*(p.x+.5*sig*p.vx))+'  '+str(1000.*(p.y+.5*sig*p.vy))+'  '+\ 
str(1000.*(p.z+.5*sig*p.vz))+'\n') 
f.write('He  '+str(1000.*p.TX)+'  '+str(1000  *p.TY)+'  '+\ 
str(1000.*p.TZ)+'\n') 

simtime  +=  timeinc 

print  '100%%  done  at  %i,  %i  dimers,  %f  move  rate,  %i  sweeps'  %( 

int(clock()-tO),  ndyads,  (moved*1.0/(len(particles)*sweep)),  (sweep-1)) 
if  xyz:  f.close() 
f  =  open(path+name+'.txt','a') 
print  path+name 
f.write(str(clock()-tO)+'\n') 
f.write(str(Uout[l::])+'\n') 
f.write(str(dyadout)+'\n') 
f.write( 

'n='+str(n)+'  time='+str(sweeptime)+'  sig='+str(sig)+'  aratio='+str(aratio)+'  k='+str(k)+ 

'  q='+str(q)+'  M='+str(M)+'  M0='+str(M0)+’  tau=’+str(int(tau))+'  tm=’+str(int(tm))+ 

’  RC='+str(RC)+'  bE='+str(bE)+'  brangeratio='+str(brangeratio) 

) 

f.closeQ 


if _ name _ ==" _ main _ 

allow_dyad=True 
name  =  'Runs/' 

density  =  .001  #n*sigma**3  *pi/6 
k=20.  #this  is  k  |p|A2  /  KbT*sigA3 
q  =  12.0  #electrostatic  repulsion 
kappa  =  5.0  #electrostatic  decay 

bE=-5.  #binding  energy  -  not  really  important  for  simulation 
Lm=1.0 

brangeratio=.l  #range  for  bonding 
aratio=.l  #move  size 
tau  =  300  #time  between  mixings 
tm  =  49  #mixing  time 

Z_PERIOD  =  2.0  #characteristics  of  mixing  field 
XY_COEFF  =  4*sqrt(2) 

M  =  200.0  #mixing  field  strength 

M0  =  4.0  #regular  field  strength 

RCratio  =  5.0  #cutoff  for  dipole  potential  in  sigma  units 
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savef  =  250 

xyz  =  True  #log  positions 
n  =  990 

makedyads  =  10 
sweeptime  =  1 
iteration  =  0 

opts,  args  =  getopt.getopt(sys.argv[l:],"hoD:k:q:K:t:T:L:b:B:a:M:Q:Z:X:C:m:f:xn:d:N:i:") 
for  o,  arg  in  opts: 
if  o=='-h': 

print  '-D:  density,  default  '+str (density) 

print  '-o:  turn  off  dyad  formation  (to  measure  dyad  rate  without  autocatalyzation)' 

print  '-k:  initial  dipole  interaction  strength  |p|A2  /  (4*pi*sigA3*KbT),  default  ’+str(k) 

print  '-q:  electrostatic  repulsion  between  colloids,  default  ’+str(q) 

print  '-K:  electrostatic  decay,  default  ’+str(kappa) 

print  '-e:  Binding  energy,  default  '+str(bE) 

print  '-L:  length  for  mixing  inversion,  default  '+str(Lm) 

print  '-b:  binding  distance  in  hard  core  diameters,  default  ’+str(brangeratio) 

print  '-a:  move  distance  in  units  of  hard  core  diameter,  default  ’+str(aratio) 

print  '-t:  time  between  magnetic  stirring,  default  ’+str(tau) 

print  '-T:  time  to  magnetically  stir,  default  '+str(tm) 

print  '-M:  strength  of  mixing  field,  default  ’+str(M) 

print  '-Q:  strength  of  constant  field,  default  T+str(M0) 

print  '-Z:  period  of  mixing  field,  default  ’+str(Z_PERIOD) 

print  '-X:  mixing  field  spin  rate  in  the  xy  plane,  default '  +  str(XY_COEFF) 

print  '-C:  cut-off  radius  for  dipole  potential  in  hard  core  diameters,  default  T+str(RCratio) 

print  '-m:  name  of  output  files,  default  '+name 

print  '-f:  save  frequency,  default  '+str(savef) 

print  '-x:  turn  off  xyz  file  output' 

print  '-n:  number  of  particles,  default  ’+str(n) 

print  '-d:  number  of  extra  particles  to  add  as  dyad  pairs,  default  ’+str(makedyads) 

print  '-N:  total  time  to  run  simulation,  default  '+str(sweeptime) 

print  '-i:  iteration  number  for  multiple  trials,  default  O' 

dummy=raw_input() 

sys.exit() 

elif  o=="-o":  allow_dyad=False 

elif  o=="-D":  density  =  float(arg) 

elif  o=="-k":  k=float(arg) 

elif  o==''-q":  q=float(arg) 

elif  o=="-K":  kappa=float(arg) 

elif  o=="-e":  bE=float(arg) 

elif  o==''-L":  Lm=float(arg) 

elif  o=="-b":  brangeratio=float(arg) 

elif  o=="-a":  aratio=float(arg) 

elif  o=="-t":  tau  =  float(arg) 

elif  o=="-T":  tm  =  float(arg) 

elif  o=="-0":  tstirdirection=int(arg) 

elif  o=="-M":  M=float(arg) 

elif  o=="-Q":  M0=float(arg) 

elif  o=="-Z":  Z_PERIOD  =  float(arg) 
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elif  o=="-X":  XY_COEFF  =  float(arg) 
elif  o=="-C":  RCratio=float(arg) 
elif  o=="-m":  name=arg 
elif  o=="-f":  savef=int(arg) 
elif  o=="-x":  xyz=False 
elif  o==''-n":  n=int(arg) 
elif  o=="-d":  makedyads=int(arg) 
elif  o=="-N":  sweeptime  =  float(arg) 
elif  o=="-i":  iteration  =  int(arg) 

name  =  name  +  '_n%i_d%i_D%.4f_k%i_q%.lf_K%.lf_b%.2f_t%i_T%i_Q%.lf_M%.lf_%i'  %( 
n,  makedyads,  density,  int(k),  q,  kappa,  brangeratio,  int(tau),  int(tm), 

MO,  M,  iteration) 

sig3  =  density  /  (n+makedyads)*6.0/pi 

sig  =  sig3**(1.0/3) 

kappa  *=  1.0/sig 

brange  =  brangeratio*sig 

RC  =  RCratio*sig 

a  =  aratio*sig 

angle  =  aratio 

brangetest  =  brange+sig 

dal  =  .51*a  #diffusion  coefficients  for  dimer  translation 
da2  = ,68*a 

danglel  =  aratio*1.0/sqrt(3)  #same,  for  dimer  rotation 

dangle2  =  ,42*aratio 

nboxa  =  round(1.0/float(RC)) 

nbox  =  int(nboxa) 

RC  =  1.0/nbox 
direction  =  0 

timeinc  =  aratio* *2  *1.0/16 

print  "number  of  sweeps  %i"  %int(sweeptime/timeinc  +  1) 
simulate(n,  makedyads,  sweeptime,  timeinc) 
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#include  "utils/nr. h" 

#include  "PBcalculationRK.h" 

#include  <fftw3.h> 

#include  <stdlib.h> 

#include  <stdio.h> 

#include  <math.h> 

#include  <string.h> 

#include  <iostream> 

#include  <time.h> 

#include  <iomanip> 

#include  <fstream> 
using  namespace  std; 

#include  "utils/nr. h" 

#include  "gnuplotj.hpp" 

#include  <gsl/gsl_dht.h> 

#include  <gsl/gsl_sf_bessel.h> 

#include  <gsl/gsl_matrix.h> 

#include  <gsl/gsl_matrix.h> 

#include  <gsl/gsl_linalg.h> 

#include  <gsl/gsl_rng.h> 

#if  defined(WIN32)  1 1  defined(_WIN32)  |  |  defined(_WIN32_)  1 1  defined (__TOS_WIN_) 
#include  <conio.h>  //for  getchO,  needed  in  wait_for_key() 

#include  <windows.h>  //for  SleepO 
#endif 


void  wait_for_key();  //  Program  halts  until  keypress 

#define  pi  3.141592653589793238462643 
#define  NA  0.60221415 
#define  eO  8.8541 8781 7620e-1 2 
#define  e  1 .6021 7646e— 1 9 
#define  kB  1 ,3806503e-23 

#define  T  293.0 

#define  ew  80.1  /*  at  293  K  */  //78.4 
#define  ImposeLocalChargeNeutrality  true 


/* 
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Calculates  the  radial  distribution  function  of  the  primitive  model  (HS  +  Coulomb 
interactions), 

the  equation  of  state,  and  compressibility,  following  several  methods  (HNC,MSA,PB,SCA) 

(c)  by  Jos  W.  Zwanikken,  August  18,  2014 
Monica  Olvera  de  la  Cruz  group 
Northwestern  University 
Evanston  II 


*/ 


class  Ion  { 
public: 

double  Charge,  Diameter,  Concentration; 
char  name[26] ; 

Ion  (); 

void  PrintPropertiesQ; 


}: 

Ion : :  lon(){ 


Charge  =  1 .0; 

Diameter  =  0.6; 

Concentration  =  0.1  *  NA; 
strcpy  (name, "charged  sphere"); 


/*  Charge  in  units  of  elementary  charge  */ 
/*  Diameter  in  nanometer  */ 

/*  Bulk  concentration  in  particles  per  cubic  nm  */ 
/*  Name  of  the  ion  */ 


} 


void  lon::PrintProperties()  { 


cout  «  name  «  «  "Charge  =  "  «  Charge  «  "  eWtDiameter  =  11  «  Diameter  « 

nmWt  Concentration  =  "  «  Concentration/NA  «  "  M"  «  endl; 


} 
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void  SetlonParameters  (int  Ni,  int  *N,  Ion  *iontype)  { 


double  chargeneutral  =  0,  totaldensity: 
int  i; 

Ion  lonData[10]; 


strcpy(lonData[0] .name, "sodium  ion"): 
strcpy(lonData[1  ] .name, "chloride  ion"); 
strcpy(lonData[2] .name, "calcium  ion"): 
strcpy(lonData[3] .name, "phosphate  ion"); 
strcpy(lonData[4] .name,"neg.  charged  monomer"); 
strcpy(lonData[5] .name,"pos.  charged  monomer"); 
strcpy(lonData[6] .name, "neutral  monomer"); 
strcpy(lonData[  7]  .name,  "Lanthanide"); 


lonData[0]  .Charge  =  1.0: 
lonData[1  ]  .Charge  =  -1.0; 
lonData[2]  .Charge  =  2.0; 
lonData[3]  .Charge  =  -2.0; 
lonData[4]  .Charge  =  -1.0; 
lonData[5]  .Charge  =  1.0; 
lonData[6]  .Charge  =  0.0; 
lonData[7]  .Charge  =  3.0; 

totaldensity  =  1 0.0  *NA; 

lonData[0]  .Concentration  = 
fabs(lonData[0]  .Charge); 

lonDatafl  ]  .Concentration  = 
fabs(lonData[1  ]  .Charge); 

lonData[2]  .Concentration  = 
fabs(lonData[2]  .Charge); 

lonData[3]  .Concentration  = 
fabs(lonData[3]  .Charge); 
lonData[4]  .Concentration  = 
lonData[5]  .Concentration  = 
lonData[6]  .Concentration  = 
lonData[7]  .Concentration  = 


lonData[0]  .Diameter  = 

0.6; 

lonData[1  ]  .Diameter  = 

0.6; 

lonData[2]  .Diameter  = 

0.6; 

lonData[3]  .Diameter  = 

0.6; 

lonData[4]  .Diameter  = 

0.6; 

lonData[5]  .Diameter  = 

0.6; 

lonData[6]  .Diameter  = 

0.6; 

lonData[7]  .Diameter  = 

0.8: 

1 .0  *  totaldensity; 
1 .0  *  totaldensity; 
0.5  *  totaldensity; 
0.5  *  totaldensity; 


//  *  totaldensity  / 
//  *  totaldensity  / 
//  *  totaldensity  / 
//  *  totaldensity  / 


1 .0  *  totaldensity  /  fabs(lonData[0]. Charge); 
1 .0  *  totaldensity  /  fabs(lonData[1  ]. Charge); 
1 .0  *  totaldensity; 

1 .0  *  totaldensity; 


for  (i=0;i<Ni;i++)  { 

iontype  [  i  ]  .Charge  =  lonDatafN  [i]  ]  .Charge; 
iontype  [  i  ]  .Diameter  =  lonData[N  [i]  ]  .Diameter; 
iontype  [  i  ]  .Concentration  =  lonData  [  N  [  i  ]  ] .  Concentration; 
strcpy(iontype[i].name,lonData[N[i]  ]  .name); 
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} 

for  (i=0;i<Ni;i++)  chargeneutral  +=  iontype [i]  .Concentration  *  iontype [ i ]  .Charge; 
if  (chargeneutral  !=  0)  { 

cout  «  "warning,  the  system  is  not  charge  neutral,  but  has  an  excess  charge  of  "  « 
chargeneutral  «  "  e  /  nrrT3"  «  endl: 

iontype[0] .Concentration  -=  chargeneutral/iontype[0] .Charge; 
cout  «  "Bulk  concentration  of  ion  type  1  ("  «  iontype[0].name  «  ")  adapted  to  a 
new  value  of  11  «  iontype [0]  .Concentration/NA  «  "  M"  «  endl; 

if  (iontype  [0]  .Concentration  <  0)  cout  «  "which  is  negative  (!).  Program  does  not 
know  how  to  correct."; 
chargeneutrahO; 

for  (i=0;i<Ni:i++)  chargeneutral  +=  iontype [ i ]  .Concentration  *  iontype [ i ]  .Charge; 
cout  «  "total  charge  is  now  "  «  chargeneutral  «  "  e  /  nrrT3"  «  endl; 

} 


} 


class  RDFevaluator  { 

double  kappaD, fraction,  Gamma,  tolerance,  alpha,  turn,  turnstep; 
double  IB,R,RD,Rmin,*r,  *K,  *phiZeta,  *rho_res,  *mu_res,  phiD,  *guessPhi, 
*guessPhiMem; 

double  *mu_exc,  F_exc,  Pi_exc,  *N_ads,  *omega_ads; 
double  *hBigMem,  *cBigMem,  *hBigMem2,  *cBigMem2,  *guessPhiBigMem, 
*guessPhiBigMem2; 

int  i,j,k,Ni,Nres,  itermax,  method,  evaluations; 
char  projectname[70]  ,methodname[7]: 
int  N; 

bool  FirstRecording,  FISC,  FastRun; 

Mat_DP  d,  rho,  delta,  phi,  roots; 

Mat3D_DP  h,c,hnew,cnew,hFt,cFt,hDFI,hLDH,hMem,cMem,cprev,f,u,uFT; 
Ion  *ion; 

void  SetPotential(bool); 
void  ShiftGrid () ; 

double  Qtot(double,  double,  int); 
double  ShootPhiDFfEMSA  (int,  double,  int); 
void  EvaluatePhiDPIEMSA  (); 
void  EvaluateFINCSChybrid  (double); 
double  ShootDonnanPotential (double); 
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void  EvaluateDonnanPotentiaK); 

double  SelfConsistentDensities(double*); 

void  EvaluatelonDensitiesO; 

void  CalculateThermodynamicPotentialsOld  (); 

void  CalculateThermodynamicPotentials  (); 

void  ExtrapolateNewCorrelationFunctions(int,  int,  double*); 

void  RememberCorrelationFunctions(inUnt); 

void  RecallCorrelationFunctions(int,int); 

void  RecordCorrelationFunctions  (); 

void  RecordThermodynamicPotentials  (); 

void  RecordTime(int*); 

void  FreeParametersO; 


public: 

RDFevaluator  (); 

void  SetParameters  (double*, Ion*, char*); 

void  ResetlonParameters(bool); 

void  SetMethod  (char*); 

void  Run  (double); 

void  RunAddSaltSeries  (int, double); 

void  RunChangePolymer  (int, int, double); 

void  RunAddSaltSeriesThlnt(int,  int,  double); 

void  TestgDHO; 

void  TestDonnanPotentiaK); 


}: 

RDFevaluatoruRDFevaluator  ()  { 

R  =  10.0; 

N  =  100; 

Ni  =  4; 

r  =  (double*)  calloc  (N.sizeof(double)); 

K  =  (double*)  calloc  (N.sizeof(double)); 
mu_exc  =  (double*)  calloc  (Ni.sizeof(double)); 
N_ads  =  (double*)  calloc  (Ni.sizeof(double)); 
omega_ads  =  (double*)  calloc  (Ni.sizeof(double)); 
for  (k=0;k<N;k++)  r[k]  =  k*R/double(N-1 ); 
for  (k=0;k<N;k++)  K[k]  =  double(k)/R; 


} 
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void  RDFevaluator::SetParameters  (double  *p.  Ion  *iontype,  char  *name)  { 


strcpy  (projectname.name); 

N  =  p [0] : 

IB  =  p[1  ] : 

RD  =  p  [2] ; 

Ni  =  p [3] : 

//ion  =  (Ion*)  calloc  (Ni,  sizeof(lon)); 
ion  =  new  Ion [ Ni] ; 


for  (i=0;i<Ni;i++)  { 
ion  [i]  .Charge  =  iontype  [i]  .Charge; 
ion  [i]  .Diameter  =  iontype  [i] .  Diameter; 
ion  [i]  .Concentration  =  iontype  [i] .  Concentration; 
strcpy(ion[i].name,iontype[i]  .name); 

} 

kappaD  =  0.0; 

for  (i=0;i<Ni;i++)  {  kappaD  +=  pow(ion[i] .Charge, 2.0)  *ion[i], Concentration;  } 
kappaD  =  sqrt(4*pi*IB*kappaD); 

Rmin  =  1 6.0; 

R  =  ion [0] .Diameter  +  RD/kappaD:  if  (R  <  Rmin)  R  =  Rmin: 

d.assign(O.O.Ni.Ni); 
rho.assign(0.0,Ni,Ni); 
delta.  assign(O.O.Ni.Ni); 
roots.assign(0.0,3,Ni); 

phi.assign(0,0,Ni,N); 

h.assign(0.0,Ni,Ni,N); 

c.assign(0.0,Ni,Ni,N); 

hnew.  assign  (0.0,  Ni,  Ni,  N) ; 

cnew.  assign  (0.0,Ni,Ni,N); 

hFt.assign(0.0,Ni,Ni,N): 

cFt.assign(0.0,Ni,Ni.N); 

hDH.assign(0.0,Ni,Ni,N); 

hLDH.assign(0.0,Ni,Ni,N); 

hMem.assign(0.0,Ni.Ni,N); 

cMem.assign(0,0,Ni,Ni,N); 

cprev. assign  (0.0,Ni,Ni,N); 
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f.assign(0.0,Ni,Ni.N); 

u.assign(0.0,Ni,Ni,N); 

uFT.assign(0.0,Ni,Ni,N); 

hBigMem  =  (double*)  cailoc  (Ni*Ni*N,sizeof(double)): 
cBigMem  =  (double*)  cailoc  (Ni*Ni*N,sizeof(double)); 
guessPhiBigMem  =  (double*)  cailoc  (Ni*N,sizeof(double)); 
hBigMem2  =  (double*)  cailoc  (Ni*Ni*N,sizeof(double)); 
cBigMem2  =  (double*)  cailoc  (Ni*Ni*N,sizeof(double)); 
guessPhiBigMem2  =  (double*)  cailoc  (Ni*N,sizeof(double)); 

phiZeta  =  (double*)  cailoc  (Ni.sizeof(double)); 
rho_res  =  (double*)  cailoc  (Ni.sizeof(double)); 
mu_res  =  (double*)  cailoc  (Ni.sizeof(double)); 
guessPhi  =  (double*)  cailoc  (Ni.sizeof(double)); 
guessPhiMem  =  (double*)  cailoc  (Ni,sizeof(double)); 

r  =  (double*)  realloc  (r,(N+1  )*sizeof(double)); 

K  =  (double*)  realloc  (K,(N+1  )*sizeof(double)); 
for  (k=0;k<N;k++)  r[k]  =  (k+1  )*R/double(N+1 ); 
for  (k=0;k<N;k++)  K[k]  =  double(k+1  )/R; 

mu_exc  =  (double*)  realloc  (mu_exc,(Ni+1  )*sizeof(double)); 

FirstRecording  =  true;  FastRun  =  true;  evaluations  =  0; 
tolerance  =  1e-5;  // 1  e— 5 
Nres  =  Ni: 

Gamma  =  0;  for  (i=0;i<Ni;i++)  if  (Gamma  < 
ion [i] .Charge*ion[i] .Charge*IB/ion[i] .Diameter)  Gamma  = 
ion  [i]  .Charge*ion[i]  .Charge*IB/ion[i]  .Diameter; 

/*  One  can  prove  that  the  maximal  Gamma  is  always  found  between  two  ions  of  the 
same  type  */ 

alpha  =  0.01 ;  turn=1 .0;  turnstep  =  1  e-5; 

if(Gamma  >  312. 0){ 
alpha  =  0.1  /  (1 .0  +  0.5*Gamma); 

cout  «  "alpha  =  "  «  alpha  «  "  for  Gamma  =  "  «  Gamma  «  endl; 

} 


for  (i=0;i<Ni;i++)  {  deltafi]  [i]  =  1 .0;  } 


} 
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void  RDFevaluator::ResetlonParameters(bool  SetLocalChargeNeutrality){ 

double  chargeneutral=0,  Nd,  totalrho; 

bool  Mem; 

Nd  =  20;  //  refines  the  grid  on  the  length  scale  of  the  particle  size;  set  0  to  turn  of  and 
create  an  equidistant  grid 

Mem  =  SetLocalChargeNeutrality; 

for  (i=0;i<Ni;i++)  chargeneutral  +=  ion [i]  .Concentration  *  ion [i] . Charge; 

if  (chargeneutral  !=  0)  { 

cout  «  "warning,  the  system  is  not  charge  neutral,  but  has  an  excess  charge  of  "  « 
chargeneutral  «  "  e  /  nrrT3"  «  endl: 

if  (chargeneutral  >  1  e— 6)  SetLocalChargeNeutrality  =  true; 
if(SetLocalChargeNeutrality)  { 
ion [0] .Concentration  -=  chargeneutrai/ion[0], Charge; 

cout  «  "Bulk  concentration  of  ion  type  1  ("  «  ion [0], name  «  ")  adapted  to  a  new 
value  of  "  «  ion [0]  .Concentration/NA  «  "  M"  «  endl; 

if  (ion  [0]  .Concentration  <  0)  cout  «  "which  is  negative  (!).  Program  does  not  know 
how  to  correct."; 

chargeneutral=0; 

for  (i=0;i<Ni;i++)  chargeneutral  +=  ion [i] . Concentration  *  ion [i] . Charge; 
cout  «  "total  charge  is  now  "  «  chargeneutral  «  "  e  /  nmA3"  «  endl; 

} 

} 

SetLocalChargeNeutrality  =  Mem; 


kappaD  =  0.0; 

for  (i=0;i<Ni;i++)  {  kappaD  +=  pow(ion[i] .Charge, 2.0)  *ion[i] .Concentration;  } 
kappaD  =  sqrt(4*pi*IB*kappaD); 

R  =  ion [0]  .Diameter  +  RD/kappaD:  if  (R  <  Rmin)  R  =  Rmin: 

for  (k=0;k<N;k++)  r[k]  =  (k+1  )*R/double(N+1 ); 
for  (k=0;k<N;k++)  K[k]  =  double(k+1  )/R; 

//ShiftGridO ; 

Gamma  =  0;  for  (i=0;i<Ni;i++)  if  (Gamma  < 
ion [i] ,Charge*ion[i] .Charge*IB/ion[i] .Diameter)  Gamma  = 
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ion  [i]  .Charge*ion[i]  .Charge*IB/ion[i]  .Diameter; 


totalrho=0; 

for  (i=0;i<Ni;i++)  {  totalrho  +=  ion [i]  .Concentration;  } 
if  (totalrho/NA  >  0.05)  {  alpha  =  0.01 ;  turn=0.1 ;  FastRun  =  false:} 
if  (totalrho/NA  <=  0.05)  {  alpha  =  0.04;  turn=1 .0;  FastRun  =  true:  } 
alpha  =  0.01 ;  turn=1 .0;  FastRun  =  true;  //ALERT  this  will  do  a  fast  run,  without 
annealing.  The  memory  functions  may  be  able  to  replace  the  annealing  procedure 
//alpha  =  0.01 ;  turn=1 .0;  FastRun  =  false; 


void  RDFevaluator:  :ShiftGrid(){ 
int  kcontact; 

k=0;  while  (r [k]  <  d [0]  [0])  k++; 
kcontact  =  k— 1 ; 
if (kcontact>— 1 )  { 

R  *=  (d  [0]  [0]  —  1  e— 4)/r [ kcontact] ; 

//R  *=  (d [0]  [0]  +  1  e-4)/r[20] ; 

cout  «  "Grid  shifted  by  a  factor  of  "  «  d [0]  [0] /r [kcontact]  «  endl; 

cout  «  "before  r["  «  kcontact  «  "]  =  "  «  r[kcontact]  «  endl; 

for  (k=0;k<N;k++)  r[k]  =  (k+1  )*R/double(N+1 ); 

for  (k=0;k<N;k++)  K[k]  =  double(k+1  )/R; 

cout  «  "after  r["  «  kcontact  «  "]  =  "  «  rfkcontact]  «  endl; 

} 


} 

void  RDFevaluator::SetPotential(bool  FISC){ 
int  kd; 


for  (i=0;i<Ni;i++)  { 
for  (j=0;j<Ni;j++)  { 

d[i]  [j]  =  0.5  *  (ion [ i] . Diameter  +  ion [j], Diameter); 

rho [i]  [j]  =  sqrt(ion[i].Concentration*ion[j], Concentration); 

} 

} 
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if  (!HSC)  { 
for  (i=0;i<Ni;i++)  { 
for  (j=0;j<Ni;j++)  { 
for  (k=0;k<N;k++)  { 
u[i]  [j]  [k]  =  0.0; 
u FT [ i ]  [j]  [k]  =  0.0; 

} 

} 

} 

}  else  { 

for  (i=0;i<Ni;i++)  { 
for  (j=0;j<Ni;j++)  { 
k=0;  while  (r [k]  <  d[i]  [j])  k++; 
kd=k; 

for  (k=0;k<N;k++)  { 

if  (r  [  k]  >=  d[i]  [j])  u[i]  [j]  [k]  =  ion  [i] .  Charge  *  ion  [j] .  Charge  *IB/  r[k]  ; 
u  [ i ]  [j]  [ k]  =  ion  [i]  .Charge  *  ion  [j ]  .Charge  *IB/  r[k]  ; 
uFT  [i]  [j]  [k]  =  ion  [i] .  Charge  *  ion  [j  ]  .Charge  *IB  *  4.0  /  (pi*K[k]*K[k])  * 
(cos(pi*K[k]*r[0])  -  cos(pi*K[k]*R))  *  rho [ i]  [j] ; 

//uFT[i]  [j]  [k]  =  ion  [i]  .Charge  *  ion  [j]. Charge  *IB  *  4.0  /  (pi*K[k]*K[k]) 
(cos(pi*K[k]*r[kdl)  -  cos(pi*K[k]*R))  *  rho [i]  [j] ; 

} 

} 

} 

} 


} 

void  RDFevaluatornSetMethod  (char  *appr){ 
method  =  6;  strcpy(methodname,"MSA"); 

if  (strcmp(appr,"FINC")==0)  {  method  =  1;  strcpy(methodname,"FINC");  } 
if  (strcmp(appr,"DFIEMSA")==0)  {  method  =  2;  strcpy(methodname,"DFIEMSA");  } 
if  (strcmp(appr,"MSA")==0)  {  method  =  3;  strcpy(methodname,"MSA"):  } 
if  (strcmp(appr,"PY")==0)  {  method  =  4;  strcpy(methodname,"PY");  } 

cout  «  endl; 
switch  (method)  { 

case  1 : 

cout  «  "Method  applies  the  hyper-netted  chain  (FINC)  closure"  «  endl; 
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break; 
case  2: 

cout  «  "Method  applies  the  Debye  Hueckel  extended  mean  spherical 
approximation  (DHEMSA)"  «  endl;  /*  JCP  201 1  */ 
break; 
case  3; 

cout  «  "Method  applies  the  mean  spherical  approximation  (MSA)"  «  endl; 
break; 
case  4; 

cout  «  "Method  applies  the  Percus-Yevick  closure  (PY)"  «  endl; 
break; 
default; 

cout  «  "Method  applies  the  mean  spherical  approximation  (MSA)"  «  endl; 

} 


double  RDFevaluator::Qtot(double  Phi,  double  rad,  int  I)  { 


double  Q=0; 


for  (i=0;i<Ni;i++)  { 
if  (rad  <  d [ I ]  [i] )  continue; 

Q  -=  4*pi*IB*  rad  *  ion [i]  .Concentration  *  ion [i]  .Charge  *  exp(— ion [i]  .Charge 
Phi/rad); 

} 

return  Q; 


} 

double  RDFevaluatorcShootPhiDHEMSA  (int  kA,  double  phiA,  int  I)  { 

double  Dphi,DphiG,phiG,phiO,  Error,  minr=1e9,  large  =  40.0,  step; 

for  (i=0;i<Ni;i++)  {  if  (minr  >  d [I]  [i])  minr  =  d [ I ]  [i];  } 

k  =  kA:  phi [I]  [k]  =  phiA; 

Dphi  =  -kappaD*phiA; 

step  =  r  [k]  — r  [k— 1  ]; 

while(r [ k—  1  ]  >  minr)  { 
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//  phiG'(k-l)  =  phi' (k)  -  step  * 


phiO  =  phi [I]  [k] : 

/*  Euler  step  */ 

DphiG  =  Dphi  -  Qtot(phiO,r[k],l)  *  step; 

Qtot  [  phi(k)  ] 

phiG  =  phi  [I]  [k]  -  Dphi  *  step;  // phiG(k-l)  =  phi(k)  -step* 

phi'  (k) 

/*  Correcter  step  */ 

phi [I]  [k-1  ]  =  phi [ I]  [k]  -  0.5  *  step  *  (Dphi  +  DphiG);  // 

phi(k-l)  =  phi(k)  -  step  *  0.5  *  (phi1  (k)  +  phiG'(k)) 

Dphi  =  Dphi  -  0.5  *  step  *  (Qtot(phiO,r[k] ,1)  +  Qtot(phiG,r[k-1  ] ,1));  // 

phi ' (k—  1 )  =  phi'(k)  -  step  *  0.5  *  (Qtot [ phi(k) ]  +  Qtot [ phiG(k—  1 )]) 

if  (fabs(phi [ I ]  [k-1  ])  >  large)  { 
cput  «  "Large  values  ef  phi"  «  endl: 

Errer  =  Dphi/(r  [k] )  -  phi  [I]  [k]/pow(r[k],2.0)  +  ion  [I]  ,Charge*IB/  pow(r[k],2.0); 
Errer  +=  large  *  (r [k]  -  minr)  *  Error/fabs(Error); 
return  Error; 

} 

k— : 

} 

step  =  r[k]  -  minr; 
phiO  =  phi [ I ]  [k]; 

/*  Euler  step  */ 

DphiG  =  Dphi  -  Qtot(phiO,r[k] ,1)  *  step; 
phiG  =  phi [I]  [k]  -  Dphi  *  step; 

/*  Corrector  step  */ 

phiZeta [ I ]  =  phi [I]  [k]  -  0.5  *  step  *  (Dphi  +  DphiG): 

Dphi  =  Dphi  -  0.5  *  step  *  (Qtot(phi0. r [k] ,1)  +  Qtot(phiG,minr,l)); 

phiZeta [ I ]  /=  minr; 

Error  =  Dphi  /  minr  -  phiZeta [ I ]  /  minr  +  ion[l].Charge*IB/  (minr*minr);  //  Boundary 
condition  at  contact  (Gauss'  law) 

return  Error; 


} 

void  RDFevaluatorcEvaluatePhiDHEMSA  ()  { 
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double  root[3],  fr [2] ,  minr  =  1e9,  maxr  =  0,  error=1e9; 
int  kA,  ni,  iterations=0; 


for  (ni=0;ni<Ni;ni++)  { 


for  (j=0;j<Ni;j++)  {  if  (minr  >  d [ni]  [j])  minr  =  d [ni]  [j];  if  (maxr  <  d [ni]  [j])  maxr 
d [ni]  [j] :  } 

/*  Shooting  from  phi(kA)  =  phiA  to  phi  at  contact  */ 

k=0;  while  (r [k]  <  maxr  +  4.0/kappaD  and  k  <  N-1)  k++; 
kA  =  k; 

/*  Initial  guess  for  phiA  */ 

//root [0]  =  ion  [ni]  .Charge  *  0.0  *  exp(-4.0); 
root  [0]  =  0.9*guessPhi[ni]; 
root  [  1  ]  =  0.99*guessPhi[ni] ; 

fr [0]  =  ShootPhiDHEMSA  (kA,  root [0] ,  ni); 
fr [  1  ]  =  ShootPhiDHEMSA  (kA,  root[1  ],  ni); 

while  (fabs(error)  >  tolerance)  { 

if  (  root [  1  ]  ==  root[0]  )  { 

//cout  «  "ALERT,  roots  are  the  same,  root [0]  =  root[1  ]  =  "  «  root[0]  «  endl; 
//wait_for_key(); 

} 

if  (  (fr [  1  ]  — fr [0] )  !=  0  )  { 

root [2]  =  root [  1  ]  —  fr [  1  ]*(root[1  ]  —root [0] )  /  (fr [  1  ]  — fr [0] ) ; 

} 

if  (  (fr [  1  ]  — fr [0] )  ==  0  )  { 

//cout  «  "ALERT,  the  rootfinder  found  a  slope  of  zero"  «  endl; 
root [2]  =  0.9*root[1  ]; 

//root [2]  =  root [  1  ]  —  fr [  1  ]*(root[1  ]  —root [0] )  /  (fr [  1  ]  — fr [0] ) ; 

} 

error  =  ShootPhiDHEMSA  (kA,  root[2],  ni); 

//cout  «  "error  of  rootfinder  (EvaluatePhiDHEMSA)  =  "  «  error  «  endl; 

root [0]  =  root[1  ] ;  root [  1  ]  =  root [2] :  fr [0]  =  fr [  1  ] ;  fr [  1  ]  =  error; 
if (fabs(error)  >  1  el  1 )  {  cout  «  "error  exceeded  a  maximum  value  in 
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EvaluatePhiDHEMSA"  «  endl;  } 


iterations++; 

if  (iterations  >  1e5  and  error  >  tolerance)  { 
cout  «  "Warning,  EvaluatePhiDHEMSA  does  not  converge  fast.  Iterations  are 
finished  with  an  error  larger  than  the  tolerance"  «  endl; 
error  =  0; 

} 

} 

guessPhi  [ni]  =  root  [2] ; 

/*  Setting  the  final  potential  and  h_DH  and  h_LDH*/ 

for  (k=1;k<kA+1;k++)  { 
if  (r [k]  >  minr )  { 
phi  [ni]  [k]  =  phi  [ni]  [k]  /  (r  [k] ); 

for  (j=0;j<Ni;j++)  hDH [j]  [ni]  [k]  =  exp(— ion [j]  .Charge*phi [ni]  [ k] )  -  1.0; 
for  (j=0;j<Ni;j++)  hLDH [j ]  [ni]  [k]  =  -ion[ni].Charge*ion[j].Charge*IB*  exp  ((minr— 
r[k])*kappaD)  /  r[k]  /  (1.0  +  kappaD*minr); 

} 

for  (j=0;j<Ni;j++)  if  (r[k]  <  d  [j]  [ni]  )  {  hDH  [j]  [ni]  [k]  =  hLDH  [j]  [ni]  [k]  =  -1.0;  } 

} 

for  (k=kA+1  ;k<N;k++)  { 

phi  [ni]  [k]  =  phi  [ni]  [kA]  *  exp  ((r[kA]-r[k])*kappaD)  * r  [ k A ]  /  r[k] ; 
for  (j=0;j<Ni;j++)  hDH  [j]  [ni]  [k]  =  exp(— ion  [j]  .Charge*phi  [ni]  [k] )  -  1.0; 
for  (j=0;j<Ni;j++)  hLDH  [j  ]  [ni]  [k]  =  —ion  [ni]  .Charge*ion[j]  .ChargeHB*  exp  ((minr— 
r[k])*kappaD)  /  r[k]  /  (1.0  +  kappaD*minr); 

} 

error  =  1  e9; 

} 


} 


void  RDFevaluatoruEvaluateHNCSChybrid  (const  double  Itermax)  { 

double  *fAid,*Reg,  var.vol, error; 
double  scaleSTf.scaleSTb; 
int  iter=0; 

gsLvector  *  vecl  =  gsl_vector_alloc  (Ni),*  vec2  =  gsl_vector_alloc  (Ni); 
gsLmatrix  *  m  =  gsl_matrix_alloc  (Ni,  Ni); 
gsLpermutation  *  p  =  gsLpermutation_alloc  (Ni); 
int  sign  [  1  ],  kmax; 
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char  ErrFunc[7]; 

bool  PlotCorrelationFunctions  =  false; 

Gnuplot  gl ,  g2; 
vector<double>  z,fz,fk; 

fAid  =  (double*)  calloc  (N.sizeof(double)); 

fftw_plan  psine; 

psine  =  fftw_plan_r2r_1  d(N,  fAid,  fAid,  FFTW_RODFTOO,  FFTW.MEASURE); 
itermax  =  Itermax; 

Reg  =  (double*)  calloc  (N,sizeof(double)); 
vol  =  2.0*R/double(N+1 ): 

scaleSTf  =  2*R/double(N+1 );  scaleSTb  =  0.25/R; 

for  (k=0;k<N;k++)  Reg[k]  =  exp(-2.0*r[k]*r[k]/R/R); 

/*  Begin  of  iteration  */ 
error  =  1 .0; 

while  ((error  >  tolerance  and  iter  <  itermax)  or  (turn  <  1 .0))  { 
error  =  0.0: 


/*  Fourier  transform  from  h_ij(r)  to  h_ij(k)  (  Fourier  transforms  are  multiplied  by 
sqrt(rho_i*rho_j)  )  */ 


for  (i=0;i<Ni;i++)  { 
for  (j=0;j<Ni;j++)  { 
for  (k=0;k<N;k++)  { 
fAid [k]  =  h[i]  [j]  [k]  *  r [k] ; 

} 

fftw_execute(psine); 

for  (k=0;k<N;k++)  fAid [k]  *=  scaleSTf*rho[i]  [j]  /  K[k] ; 
for  (k=0;k<N;k++)  { 
hFt[i]  [j]  [k]  =  fAid [k] : 

} 
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} 


} 


/*  Evaluation  of  c_ij(k)  from  h_ij(k)  by  Ornstein-Zernike  */ 


for  (k=0;k<N;k++){ 

for  (i=0;i<Ni;i++)  {  for  (j=0:j<Ni;j++)  { 
gsl_matrix_set  (m,  i,  j,  delta [ i ]  [j]  +  hFt [i]  [j]  [k] ); 

}} 

gslJinalg_LU_decomp(m,p,sign); 
for  (j=0;j<Ni;j++){ 

for  (i=0;i<Ni;i++)  gsl_vector_set  (vec2,i,delta[i]  [j]); 

gslJinalg_LU_solve(m,p,vec2,vec1); 

for  (i=0;i<Ni;i++)  cFt [ i]  [j]  [ k]  =  gsl_vector_get  (vecl.i); 

} 


for  (i=0;i<Ni:i++)  {  for  (j=0;j<Ni;j++){  for  (k=0;k<N;k++){ 
cFt [i]  [j]  [k]  -=  delta [ i ]  [j]; 
cFt [i]  [j]  [k]  *=  -1 .0; 

}}} 


/*  Fourier  transform  from  c_ij(k)  to  c_ij(r)  */ 


for  (i=0;i<Ni;i++)  { 
for  (j=0;j<Ni;j++)  { 
for  (k=0;k<N;k++)  { 
fAid  [ k]  =  cFt [i]  [j]  [k]  *  K[k] ; 

} 

fftw_execute(psine); 

for  (k=0;k<N;k++)  fAid [k]  *=  scaleSTb  /  (rho [i]  [j]  *  r [k] ); 
for  (k=0;k<N;k++)  { 
cnew[i]  [j]  [k]  =  fAid [k] ; 

} 

} 

} 


if  (iter%  1 000  ==  0  and  PlotCorrelationFunctions)  { 
try 
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{ 

g2.reset_plot();  g2.unset_grid();  g2.set_style("lines") ;  g2.cmd("set  border 
linewidth  2.0"); 

for  (k=0;k<N:k++)  {  z.push_back(r[k]);  fz.push_back(0*c[0]  [1  ]  [k] ): 

fk.push_back(c[0]  [1  ]  [k]-cnew[0]  [1  ]  [k] ): } 
g2.plot_xy(z,fz,"c_+-(r)"); 
g2.plot_xy(z,fk,"cnew_+-(r)"); 

z.clearO;  fz.clearQ;  fk.clearO; 


} 


} 

catch  (GnuolotExceotion  ge) 

{ 

cout  «  ge.whatO  «  endl; 

} 


/*  Correcting  c_ij(r)  for  r  >  r_contact  */ 

for  (k=0;k<N;k++)  { 
for  (i=0;i<Ni;i++)  {  for  (j=0;j<Ni;j++)  { 


var  =  alpha*cnew[i]  [j]  [k]  +  (1 .0-aloha)*corev[i]  [j]  [k] ; 

if  (r[k]/d[i]  [j]  >=  1.0)  { 
switch  (method)  { 

case  1 : 

cnewfi]  [j]  [k]  =-turn*u[i]  [j]  [k]*Reg[k]  +  h[i]  [j]  [k]  -  log(h[i]  [j]  [k]  +  1 .0); 

//HNC 

break; 
case  2  : 

cnewfi]  [j]  [k]  =  -  turn*u[i]  [j]  [k]*Reg[k]  +  oow(hDH[i]  [j]  [k]  +  1 .0.turn)  —  1 .0 
-  turn*log(hDH[i]  [j]  [k]  +  1 .0);  //DHEMSA  (JCP  2011) 
break; 
case  3: 

cnewfi]  [j]  [k]  =  -  turn*u[i]  [j]  [k] *Reg [k] ;  //MSA 
break; 
case  4: 

cnewfi]  [j]  [k]  =  (h [i]  [j]  [k]  +  1.0)*  (1 .0  -  exp(u[i]  [j]  [k] ));  //PY 
break; 
default: 

cnewfi]  [j]  [k]  =  -  turn*u[i]  [j]  [k] *Reg [i] ;  //MSA 
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} 


/*  Determining  the  error  and  establishing  the  new  c_ij(r)  */ 

if  (r[k]/d[i]  [j]  >=  0.0  and  error  <  fabs(c[i]  [j]  [k]-cnew[i]  [j]  [k]))  {  //WARNING: 
the  error  is  not  checked  for  r  <  d 

error  =  fabs(c[i]  [j]  [k]-cnew[i]  [j]  [k]); 
kmax  =  k:  strcpy(ErrFunc,  "direct"): 

} 

if (r [ k] /d [ i ]  [j]  >=  1 .0)  { 

c[i]  [j]  [k]  =  (1 .0— alpha)*cprev [i]  [j]  [k]  +  alpha*cnew[i]  [j]  [ k] ; 
if(FastRun)  c[i]  [j]  [k]  =  cnew[i]  [j]  [k]; 
if  (iter<0)  { 

//cout  «  "WnTEST"  «  endl: 
c[i]  [j]  [k]  =  cnew[i]  [j]  [k] ; 

} 

}  else  { 

c[i]  [j]  [k]  =  var; 

} 

cprev [i]  [j]  [k]  =  c[i]  [j]  [k] : 

}} 

} 


/*  Fourier  transform  of  c_ij(r)  to  c_ij(k)  */ 


for  (i=0;i<Ni;i++)  { 
for  (j=0;j<Ni;j++)  { 
for  (k=0:k<N:k++)  { 

fAid [k]  =  c[i]  [j]  [k]  *r[k] :  //fAid [k]  =  (c [i]  [j]  [k]  +  u[i]  [j]  [k])  *r [k] : 

} 

fftw_execute(psine); 

for  (k=0:k<N:k++)  fAid [ k]  *=  scaleSTf*rho[i]  [j]  /  K[k] : 
for  (k=0:k<N:k++)  { 

cFt [i]  [j]  [k]  =  fAid [k] :  //cFt[i]  [j]  [k]  =  fAid [k]  -  0*uFT[i]  [j]  [k] : 

} 

} 

} 


/*  Evaluation  of  h_ij(k)  from  c_ij(k)  by  Ornstein-Zernike  */ 
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for  (k=0;k<N;k++){ 

for  (i=0;i<Ni;i++)  {  for  (j=0;j<Ni;j++)  { 
gsl_matrix_set  (m,  i,  j,  delta [ i ]  [j]  -  cFt [i]  [j]  [k] ) ; 

}} 

gsl_linalg_LU_decomp(m,p,sign); 
for  (j=0;j<Ni;j++){ 

for  (i=0;i<Ni;i++)  gsl_vector_set  (vec2,i,delta[i]  [j]); 

gsl_linalg_LU_solve(m,p,vec2,vec1); 

for  (i=0;i<Ni;i++)  hFt [ i ]  [j ]  [ k]  =  gsl_vector_get  (vecl  J) ; 

} 


for  (i=0;i<Ni;i++)  {  for  (j=0;j<Ni;j++){  for  (k=0:k<N;k++){ 
hFt [i]  [j]  [k]  -=  delta [i]  [j]; 

}}} 


/*  Fourier  transform  from  h_ij(k)  to  h_ij(r)  */ 


for  (i=0;i<Ni:i++)  { 
for  (j=0;j<Ni;j++)  { 
for  (k=0;k<N;k++)  { 
fAid  [ k]  =  hFt [ i]  [j]  [ k]  *  K[k] ; 

} 

fftw_execute(psine); 

for  (k=0;k<N;k++)  fAid [k]  *=  scaleSTb  /  (rho [i]  [j]  *  r [k] ); 
for  (k=0;k<N;k++)  { 
hnew[i]  [j]  [k]  =  fAid [k] ; 

} 

} 

} 


if  (iter%  1 000  ==  0  and  PlotCorrelationFunctions)  { 
try 
{ 

gl  ,reset_plot();  g  1 . unset_grid() :  gl  ,set_style(" lines") ;  gl  .cmdC'set  border 
linewidth  2.0"): 

for  (k=0;k<N:k++)  {  z.push_back(r[k]);  fz.push_back(0*h[0]  [1  ]  [k] ); 

fk.push_back(h[0]  [1  ]  [k]-hnew[0]  [1  ]  [k]);} 
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gl  .plot_xy(z,fz,"h_+-(r)"); 
gl  .plot_xy(z,fk,"hnew_+-(r)"): 

z.clearO;  fz.clearQ;  fk.clearO; 

} 

catch  (GnuplotException  ge) 

{ 

cout  «  ge.whatO  «  endl; 

} 

} 

/*  Determining  the  errcr  and  establishing  the  new  h_ij(r)  */ 


fcr  (i=0;i<Ni;i++)  { 
fcr  (j=0;j<Ni;j++)  { 
for  (k=0;k<N;k++)  { 
var  =  hnew[i]  [j]  [k]; 
if  (r[k]/d[i]  [j]  <  1.0)  { 
hnew[i]  [j]  [k]  =  -1 .0; 

} 

if  (r[k]/d[i]  [j]  >=  0.0  and  error  <  fabs(var-hnew[i]  [j]  [k]))  {  //WARNINg:  the 
error  is  not  checked  for  r  <  d 

error  =  fabs(var-hnew[i]  [j]  [ k] ) ; 
kmax  =  k;  strcpy(ErrFunc,  "total"): 

} 

h[i]  [j]  [k]  =  (1 .0-alpha)*var  +  alpha*hnew[i]  [j]  [k] : 
if(FastRun)  h[i]  [j]  [k]  =  hnew[i]  [j]  [k] : 

//if (k>N/2)  h[i]  [j]  [k]  =  0.0: 

} 

} 

} 

if  (iter%  1 000  ==  0)  cout  «  "error  =  "  «  error  «  11  at  r_"  «  kmax  «  "  =  "  «  r[kmax] 
«  11  in  the  "  «  ErrFunc  «  "  correlation  function:  at  iteration  "  «  iter  «  "  and  turn  =  "  « 
turn  «  endl; 

if  (iter%  1 000  ==  0)  { 

RecordCorrelationFunctionsO: 

} 

if  (turn  <  1 .0)  {turn  +=  turnstep;  if  (turn  >  1 .0)  turn  =  1.0:} 
iter++; 

} 
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/*  encLoLiteration  */ 


cout  «  "error  in  EvaluateHNCSChybrid=  11  «  error  «  "  at  iteration  "  «  iter  «  endl; 
if  (i  ==  itermax)  cout  «  "Maximum  number  of  iterations  reached."  «  endl; 

evaluations  +=  iter; 

RecordCorrelationFunctionsQ; 

free  (fAid);  free(Reg); 

gsl_vector_free  (vecl);  gsLvectorJree  (vec2);  gsl_matrix_free  (m);  gsl_permutation_free 
(P): 

fftw_destroy_plan(psine); 


} 

double  RDFevaluator:;ShootDonnanPotential(double  root)  { 
double  chargeneutral  =  0; 

for(i=0;i<Nres;i++)  chargeneutral  +=  ion [i] ,Charge*exp(-ion[i] .Charge*root  +  mu_res[i] 
-  mu_exc[i]); 

for(i=Nres;i<Ni;i++)  chargeneutral  +=  ion [i]  .Charge*ion [i] . Concentration; 
return  chargeneutral; 


} 

void  RDFevaluatoruEvaluateDonnanPotential  ()  { 

double  root[3],  fr [2] ,  error=1e9; 

/*  Initial  guess  for  phiA  */ 

root  [0]  =  1 ; 
root  [  1  ]  =  -1 ; 

fr [0]  =  ShootDonnanPotential  (root[0]); 
fr [  1  ]  =  ShootDonnanPotential  (root [  1  ] ) ; 

while  (fabs(error)  >  tolerance)  { 
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if  (  (fr [  1  ]  — fr [0] )  !=  0  )  { 

root [2]  =  root [  1  ]  -  fr [  1  ]*(root[1  ]  —root [0] )  /  (fr [  1  ]  — fr [0] ); 

} 

if  (  (fr [  1  ]  — fr [0] )  ==  0  )  { 

cout  «  "ALERT,  the  rootfinder  found  a  slope  of  zero  in  EvaluateDonnanPotential" 
«  endl; 

root  [2]  =  0.9*root[1  ]; 

//root [2]  =  root [  1  ]  —  fr [  1  ]*(root[1  ]  —root [0] )  /  (fr [  1  ]  — fr [ 0] ) ; 

} 

error  =  ShootDonnanPotential  (root[2]); 

//cout  «  "error  of  rootfinder  (EvaluateDonnanPotential)  =  11  «  error  «  endl; 

root[0]  =  root [  1  ];  root [  1  ]  =  root [2] ;  fr [0]  =  fr [  1  ];  fr [  1  ]  =  error; 
if (fabs(error)  >  1  el  1 )  {  cout  «  "error  exceeded  a  maximum  value  in 
EvaluateDonnanPotential"  «  endl;  } 


phiD  =  root  [2] ; 

cout  «  "WnDonnan  potential  phiD  =  "  «  phiD  «  endl; 


} 

double  RDFevaluator::SelfConsistentDensities(double  *root)  { 

double  chargeneutral,  MaxError: 
int  itermax  =  1  e5: 


for(i=0;i<Nres;i++)  { 
ion  [I]  .Concentration  =  root  [i] ; 

} 

chargeneutral=0; 

for  (i=0;i<Ni;i++)  chargeneutral  +=  ion [i]  .Concentration  *  ion [ i] . Charge; 
root [ Nres—  1  ]  =  ion [ Nres— 1  ] .Concentration  -  chargeneutral/ion[Nres-1  ]. Charge; 
if  (root [Nres—  1  ]  <  1e-4*root[0])  { 
root[Nres-1]  =  1  e— 4*root  [0] ; 

cout  «  "Alert;  the  concentration  of  the  "  «  ion  [Nres— 1  ]  .name  «  11  (type  "  «  Nres 
«  ")  is  adapted  to  avoid  a  low  or  negative  value"  «  endl; 

} 

ion  [  Nres—  1  ]  .Concentration  =  root[Nres-1  ]; 
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ResetlonParametersOlmposeLocalChargeNeutrality); 

SetPotential(HSC); 

if(method==2)  EvaluatePhiDHEMSAO; 

EvaluateHNCSChybrid(itermax); 

CalculateThermodynamicPotentialsO; 

EvaluateDonnanPotentiaK); 


for(i=0;i<Nres;i++)  { 

ion [i] .Concentration  =  exp  (mu_res[i]  -  mu_exc[i]  -  ion [i] .Charge  *  phiD); 

} 

MaxErrpr=0; 
for(i=0;i<Nres;i++)  { 

if(fabs(MaxError)  <  fabs(pow(root[i]-ion[i]. Concentration, 3.0)))  MaxErrer  = 
pow(root[i]-ion[i]  .Concentration,  3.0); 

//MaxError  +=  pow(root[i]-ion[i], Concentration,  2.0); 

} 

return  MaxError; 


} 

void  RDFevaluator::EvaluatelonDensities()  { 
double  fr [3] ,  *rootf,  error=1e9,  chargeneutral; 
rootf  =  (double*)  calloc  (Nres,  sizeof(double)); 


for(i=0;i<Nres— 1  ;i++)  { 
roots [0]  [i]  =  ion [i]  .Concentration; 

} 

chargeneutrahO; 

for  (i=0;i<Ni;i++)  chargeneutral  +=  ion [i]  .Concentration  *  ion [i] . Charge; 

roots[0]  [Nres—  1  ]  =  ion  [Nres— 1  ]  .Concentration  -  chargeneutral/ion[Nres-1  ]  .Charge; 


for(i=0;i<Nres— 1  ;i++)  { 
roots [1  ]  [i]  =  ion [i], Concentration*  (0.999); 

} 

chargeneutral=0; 

for  (i=0;i<Ni;i++)  chargeneutral  +=  ion [i]  .Concentration  *  ion [i]  .Charge; 

roots  [1  ]  [Nres-1  ]  =  ion  [Nres—  1  ]  .Concentration  -  chargeneutral/ion[Nres-1  ]  .Charge; 

for(i=0;i<Nres;i++)  rootf  [i]  =  roots [0]  [i] ; 
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fr  [0]  =  SelfConsistentDensities(rootf); 

cout  «  "initial  error  1  of  rootfinder  (EvaluatelonDensities)  =  "  «  fr [0]  «  endl; 

for(i=0;i<Nres;i++)  rootf  [i]  =  roots [  1  ]  [i] ; 
fr  [  1  ]  =  SelfConsistentDensities(rootf); 

cout  «  "initial  error  2  of  rootfinder  (EvaluatelonDensities)  =  "  «  fr [  1  ]  «  endl; 
while  (fabs(error)  >  tolerance)  { 

//for  (i=0;i<Nres;i++)  cout  «  setw(1 9)  «  "rho_"  «  i+1 ;  cout  «  endl; 

//for  (i=0;i<Nres;i++)  cout  «  setw(20)  «  ion [i] .Concentration/NA;  cout  «  endl; 
//for  (i=0;i<Nres;i++)  cout  «  setw(20)  «  rho_res[i]/NA;  cout  «  "Wtrho_res"  « 
endl; 


for(i=0;i<Nres—  1  ;i++){ 
if  (  roots [1  ]  [i]  ==  roots [0]  [i]  )  { 

cout  «  "ALERT,  roots  are  the  same,  root[0]  ["  «  i  «  "]"  «  "  =  root [  1  ]  ["  «  i  « 
"]"  «  "  =  "  «  roots [0]  [i]  «  endl; 
wait_for_key(); 

} 

} 

if  (  (fr [  1  ]  — fr [0] )  !=  0  )  { 
for(i=0;i<Nres—  1  ;i++)  { 

roots[2]  [i]  =  roots [  1  ]  [i]  -  fr [  1  ]*(roots[1  ]  [i]  —roots [0]  [i])  /  (fr [  1  ]  — fr [0] ) ; 
ion [i], Concentration  =  roots [2]  [i]; 

} 

} 

chargeneutrahO; 

for  (i=0;i<Ni;i++)  chargeneutral  +=  ion [i] . Concentration  *  ion [i]  .Charge; 
roots[2]  [Nres-1  ]  =  ion[Nres-1  ] .Concentration  -  chargeneutral/ion[Nres-1  ] .Charge; 
if  (roots  [2]  [  i  ]  <0)  {  cout  «  "Alert:  negative  concentration  found  in 
EvaluatelonDensities"  «  endl;  wait_for_key();  } 

if  (  (fr [  1  ]  — fr [0] )  ==  0  )  { 

cout  «  "ALERT,  the  rootfinder  found  a  slope  of  zero"  «  endl; 
for(i=0;i<Nres—  1  ;i++){  roots[2]  [i]  =  0.9*roots[1  ]  [i];  } 
wait_for_key(); 

//root [2]  =  root [  1  ]  —  fr [  1  ]*(root[1  ]  —root [0] )  /  (fr [  1  ]  — fr [0] ); 

} 

for(i=0;i<Nres:i++)  rootf  [i]  =  roots  [2]  [i] ; 
error  =  SelfConsistentDensities(rootf); 

cout  «  "error  of  rootfinder  (EvaluatelonDensities)  =  "  «  error  «  endl; 
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for(j=0;j<Nres;j++)  { 

cout  «  "Wnlterated  Density  of  type  "  « j+1  «  "  ("  «  ion [j], name  «  "s)  :Wt" 
for(i=0;i<3;i++)  cout  «  setw(1 5)  «  roots [i]  [j]/NA  «  "  M"; 

}  cout  «  endl; 

for(i=0;i<Nres:i++)  { 

roots[0]  [i]  =  roots [1  ]  [i];  roots [1  ]  [i]  =  roots [2]  [i];  fr [0]  =  fr [  1  ];  fr [  1  ]  =  error; 

} 


if (fabs(error)  >  1  el  1 )  {  cout  «  "error  exceeded  a  maximum  value"  «  endl;  } 
if  (error  !=  error)  {  wait_for_key();  } 


} 


free  (rootf): 


} 

void  RDFevaluatoruCalculateThermodynamicPotentialsOld  ()  { 

double  integrand,  fl,f2,  det,  gcontact; 
gsl_matrix  *  m  =  gsl_matrix_alloc  (Ni,  Ni); 
gsLpermutation  *  p  =  gsl_permutation_alloc  (Ni); 
int  sign [  1  ]; 

/*  The  calculation  of  the  excess  chemical  potential  */ 


for  (i=0;i<Ni;i++)  { 
mu_exc[i]  =  0; 
for  (j=0;j<Ni;j++)  { 
k  =  1; 

fl  =  0.5  *  h [i]  [j]  [k]  *  (h [i]  [j]  [k]  -  c[i][j][k])  -  c[i]  [j]  [k]  -u[i][j][k]; 
while  (r[k+1  ]  <  d[i]  [j])  { 

f2  =  0.5  *  h[i]  [j]  [k+1  ]  *  (h [i]  [j]  [k+1  ]  -  c[i]  [j]  [k+1  ])  -  c[i]  [j]  [k+1  ]  - 
u[i]  [j]  [k+1  ]; 

integrand  =  f1*r[k]*r[k]  +  f2*r[k+1  ]*r[k+1  ] : 
integrand  *=  2.0*pi; 

mu_exc[i]  +=  ion  [j]  .Concentration  *  (integrand)  *  (r [k+1  ]  — r [k] ) ; 

fl  =  f2; 

k++; 

} 
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if (r [  1  ]  <d[i][j]){ 
integrand  =  fl  *r[k]*r[k] ; 
integrand  *=  4.0*pi; 

mu_exc[i]  +=  ion [j ]  .Concentration  *  (integrand)  *  (d [ i ]  [j]  — r [k] ): 

} 

f2  =  0.5  *  h[i]  [j]  [k+1  ]  *  (h [i]  [j]  [k+1  ]  -  c[i]  [j]  [k+1  ])  -  c[i]  [j]  [k+1  ]  - 
u[i]  [j]  [k+1  ]; 

integrand  =  f2*r[k+1  ]*r[k+1  ] ; 
integrand  *=  4.0*pi; 

mu_exc[i]  +=  ion  [j  ]  .Concentration  *  (integrand)  *  (r  [  k+ 1  ]  —  d  [i]  [j]); 

fl  =  f2; 

k++; 

while  (k<N/2)  { 

f2  =  0.5  *  h[i]  [j]  [k+1  ]  *  (h [i]  [j]  [k+1  ]  -  c[i]  [j]  [k+1  ])  -  c[i]  [j]  [k+1  ]  - 
u[i]  [j]  [k+1  ]; 

integrand  =  f1*r[k]*r[k]  +  f2*r[k+1  ]*r[k+1  ] : 
integrand  *=  2.0*pi; 

mu_exc[i]  +=  ion  [j ]  .Concentration  *  (integrand)  *  (r [k+1  ]  — r  [k] ); 

fl  =  f2; 

k++; 

} 

} 

} 

/*  The  calculation  of  the  excess  free  energy  */ 

F_exc  =  0; 
for  (i=0;i<Ni;i++)  { 
for  (j=0;j<Ni:j++)  { 
k  =  1; 

while  (r [ k]  <=  d[i]  [j])  k++; 

F_exc  +=  ion [ i ]  .Concentration  *ion[j], Concentration  *  pi  *  pow(d[i]  [j] ,3.0)  /  3.0 

fl  =  -  0.5  *  h[i]  [j]  [k]  *  h[i]  [j]  [k]  -  h[i]  [j]  [k]  + 

(h [i]  [j]  [k]  +  1 .0)*(log(h[i]  [j]  [k]  +  1 .0))  +  (h[i]  [j]  [k]  +  1 .0)*u[i]  [j]  [k]; 
if(method  ==  2)  { 

fl  =  -  0.5  *  h[i]  [j]  [k]  *  h [i]  [j]  [k]  -  h[i]  [j]  [k]  + 

(h [i]  [j]  [k]  +  1 .0)*(log(hDH  [i]  [j]  [k]  +  1 .0))  +  (h  [i]  [j]  [k]  +  1 ,0)*u[i]  [j]  [k] ; 

} 

integrand  =  fl  *r[k]*r[k] ; 
integrand  *=  4.0*pi; 

F_exc  +=  0.5*ion[i]. Concentration  *ion[j] .Concentration  *  (integrand)  *  (r [k]  - 

d[i]  [j]); 
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while  (k<N/2)  { 

f2  =  -  0.5  *  h[i]  [j]  [k+1  ]  *  h[i]  [j]  [k+1  ]  -  h[i]  [j]  [k+1  ]  + 

(h [i]  [j]  [k+1  ]  +  1 .0)*(log(h[i]  [j]  [k+1  ]  +  1 .0))  +  (h [i]  [j]  [k+1  ]  +  1 .0)*u[i]  [j]  [k+1]; 
if(method  ==  2)  { 

f2  =  -  0.5  *  h[i]  [j]  [k+1  ]  *  h[i]  [j]  [k+1  ]  -  h[i]  [j]  [k+1  ]  + 

(h [i]  [j]  [k+1  ]  +  1 .0)*(log(hDH [i]  [j]  [k+1  ]  +  1 .0))  +  (h [i]  [j]  [k+1  ]  +  1 ,0)*u[i]  [j]  [k+1  ]; 
} 

integrand  =  f1*r[k]*r[k]  +  f2*r[k+1  ]*r[k+1  ] : 
integrand  *=  2.0*pi; 


F_exc  +=  0.5*ion[i]. Concentration  *ion[j] .Concentration  *  (integrand)  *  (r [ k+ 1  ] 

r[k]); 

fl  =  f2; 


k++; 

} 

//F_exc  +=  0.5*ion[i], Concentration  *  mu_exc[j]: 

} 


for  (k=1  ;k<N;k++)  { 
integrand=0; 


for  (i=0;i<Ni:i++){ 
for  (j=0;j<Ni;j++){ 

gsl_matrix_set  (m,  i,  j,  delta [ i ]  [j]  +  hFt [i]  [j]  [k]); 

} 

integrand  +=  hFt[i]  [i]  [k] ; 

} 

gslJinalg_LU_decomp(m,p,sign); 
det  =  gslJinalg_LU_lndet  (m); 

//cout  «  setw(20)  «  "In  det  (I  +  FI)"  «  setw(20)  «  det  «  setw(20)  «  "k"  « 
setw(20)  «  k  «  endl; 

integrand  -=  det; 

//F_exc  +=  0.5*  (integrand)  *  (4*pi*k*k)  /(R*R):  //  *  (k+1  -  k)  *  pow(2.0*R,-3.0); 
F_exc  +=  0.5*  (integrand)  *  (4*pi*k*k)  *  (k+1  -  k)  *  pow(R,-3.0); 


} 

/*  The  calculation  of  the  osmotic  pressure  */ 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


PLexc  =  0; 
for  (i=0;i<Ni;i++)  { 

//PLexc  +=  ion  [i]  .Concentration; 
for  (j=0;j<Ni;j++)  { 
k=l; 

while  (r [ k]  <  d[i] [j])  k++; 

gcontact  =  (h [i]  [j]  [k]  +  1.0)-  (r [k]  -  d[i]  [j])*(h[i]  [j]  [k+1  ]— h [i]  [j]  [k])/(r[k+1  ]- 

r  [k] ); 


PLexc  +=  ion  [i]  .Concentration*ion  [j]  .Concentration  *2*pi*pow(d  [i]  [j]  ,3.0)* 
gcontact  /3.0:  //  contact  theorem  (HC  interaction) 

fl  =  (h [i]  [j]  [k]  +  1.0)*  4.0*pi*pow(r[k],3.0)  *  (u [i]  [j]  [k+1  ]  -  u[i]  [j]  [ k—  1  ])  / 

(r [k+1  ]  -  r[k— 1  ]); 

PLexc  -=  ion  [i]  .Concentration  *  ion  [j]  .Concentration  /  6.0  *  (fl)  *  (r  [k]  — d  [i]  [j]); 
//  electrostatic  contribution 
while  (k  <  N/2)  { 

f2  =  (h [i]  [j]  [k+1  ]  +  1 .0)  *  4.0*pi*pow(r[k+1  ],3.0)  *  (u [i]  [j]  [k+2]  -  u[i]  [j]  [k])  / 
(r [ k+2]  -  r[k] ); 

integrand  =  0.5*(f1  +  f2); 

PLexc  -=  ion  [i] .  Concentration  *  ion  [j], Concentration  /  6.0  *  (integrand)  * 

(r [ k+ 1  ]  — r [k] );  //  electrostatic  contribution 
fl  =  f2; 
k++; 

} 

} 

} 

gsl_matrix_free  (m) ;  gsl_permutation_free  (p); 


} 

void  RDFevaluator-CalculateThermodynamicPotentials  ()  { 

double  integrand,  f1,f2,  gcontact; 
double  gcontact2,  Rcell; 


/*  The  calculation  of  the  excess  chemical  potential  */ 

for  (i=0;i<Ni;i++)  { 
mu_exc[i]  =  0; 
for  (j=0;j<Ni;j++)  { 
k=0;  while  (r [k]  <  d[i]  [j])  k++; 
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gcontact  =  h[i]  [j]  [k]  -  (h [i]  [j]  [k+1  ]— h [i]  [j]  [k])/(r[k+1  ]-r[k])*(r[k]-d[i]  [j]); 

gcontact  =  ion  [j], Concentration  *  (gcontact+1 .0)  *  u[i]  [j]  [k] ; 
f2  =  ion  [j  ]  .Concentration  *  (h  [  i]  [j]  [k]  +  1 .0)  *  u[i]  [j]  [  k] ; 

//integrand  =  gcontact*d[i]  [j]*d[i]  [j]  +  f2*r[k]*r[k]; 
integrand  =  f2*r[k]*r[k]; 
integrand  *=  4.0*pi; 

mu_exc[i]  +=  (integrand)  *  (r [k]  — d [i]  [j] ); 

fl  =  f2;  //k++; 
while  (k<N/2)  { 

f2  =  ion  [j]  .Concentration  *  (h  [i]  [j]  [k]  +  1 .0)  *  u[i]  [j]  [  k] ; 

//integrand  =  f  1  *r  [k— 1  ]*r[k-1  ]  +  f2*r[k]*r[k]; 
integrand  =  f2*r[k]*r[k] ; 
integrand  *=  4.0*pi; 

mu_exc[i]  +=  (integrand)  *  (r [ k]  — r [ k—  1  ]); 

fl  =  f2; 

k++; 

} 

/*  TailCorrection*/ 

//mu_exc[i]  +=  ion  [j]  .Concentration  *  (h  [ i]  [j]  [N/2]  +  1 .0)  *  4.0*pi*IB  *r[N/2]  / 
kappaD; 

/*  while  (k<N)  { 

f2  =  ion  [j]  .Concentration  *  (h  [i]  [j]  [N/2]*exp(-(r[k]-r[N/2])*kappaD)+1 .0)  * 
u[i]  [j]  [k] ; 

//integrand  =  f  1  *r  [  k—  1  ]*r[k-1  ]  +  f2*r[k]*r[k]; 
integrand  =  f2*r[k]*r[k] ; 
integrand  *=  4.0*pi; 

mu_exc[i]  +=  (integrand)  *  (r [ k]  — r [ k—  1  ]); 

fl  =  f2; 

k++; 

}*/ 

} 

} 

for  (i=0;i<Ni;i++)  {  N_ads[i]  =  0;  omega_ads[i]  =  0;  } 
for  (i=0;i<Ni;i++)  { 
for  (j=0;j<Ni;j++)  { 
k=0;  while  (r [k]  <  d[i]  [j])  k++; 

gcontact  =  h[i]  [j]  [k]  -  (h [i]  [j]  [k+1  ]— h [i]  [j]  [k])/(r[k+1  ]-r[k])*(r[k]-d[i]  [j]); 
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if (i==0  and  j==1)  omega_ads[0]  =  -log(gcontact+1 ); 
if (i==0  and  j==3)  omega_ads[1]  =  -log(gcontact+1 ); 
if(i==1  and  j==2)  omega_ads[2]  =  -log(gcontact+1 ); 
if (i==2  and  j==3)  omega_ads[3]  =  -log(gcontact+1 ); 

gcontact  =  ion [j], Concentration  *  (gcontact  +  1.0); 
f2  =  ion  [j]  .Concentration  *  (h  [i]  [j]  [k]  +  1 .0); 
integrand  =  gcontact*d[i]  [j]*d[i]  [j]  +  f2*r[k]*r[k]; 
integrand  *=  2.0*pi; 

gcontact  =  (integrand)  *  (r [k]  — d [i]  [j]); 

fl  =  f2; 

while  (r [ k] <2*d [ i ]  [j])  { 
f2  =  ion  [j]  .Concentration  *  (h  [i]  [j]  [k]  +  1 .0); 
integrand  =  f1*r[k-1  ]*r[k-1  ]  +  f2*r[k]*r[k]: 
integrand  *=  2.0*pi; 

gcontact  +=  (integrand)  *  (r [k]  — r[k— 1  ]): 

fl  =  f2; 

k++; 

} 

Rcell  =  pow(4.0*pi*ion[i] . Concentration/3.0,  -1. 0/3.0); 
gcontact2  =  gcontact; 
while  (r[k]<  Rcell)  { 

f2  =  ion  [j]  .Concentration  *  (h  [i]  [j]  [k]  +  1 .0); 
integrand  =  f  1  *r  [k— 1  ]  *r[k— 1  ]  +  f2*r[k]*r[k]; 
integrand  *=  2.0*pi: 

gcontact2  +=  (integrand)  *  (r [ k] — r [ k—  1  ]); 

fl  =  f2; 

k++; 

} 

if (i==0  and  j==1)  N_ads[0]  =  gcontact/gcontact2; 
if (i==0  and  j==3)  N_ads [  1  ]  =  gcontact/gcontact2; 
if(i==1  and  j==2)  N_ads[2]  =  gcontact/gcontact2; 
if (i==2  and  j==3)  N_ads[3]  =  gcontact/gcontact2; 

} 

} 

/* 

for  (i=0;i<Ni;i++)  { 

N_ads[i]  =  0; 
for  (j=0;j<Ni;j++)  { 
k=0;  while  (r [k]  <  d[i]  [j])  k++; 

gcontact  =  h[i]  [j]  [k]  -  (h [i]  [j]  [k+1  ]-h[i]  [j]  [k])/(r[k+1  ]-r[k])*(r[k]-d[i]  [j]); 
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gcontact  =  ion [j], Concentration  *  (gcontact); 
f2  =  ion  [j]  .Concentration  *  (h[i]  [j]  [k]); 
integrand  =  gcontact*d[i]  [j]*d[i]  [j]  +  f2*r[k]*r[k]; 
//integrand  =  f2*r[k]*r[k]; 
integrand  *=  2.0*pi; 

N_ads[i]  +=  (integrand)  *  (r [k]  — d [i]  [j] ); 

fl  =  f2;  //k++; 
while  (r [ k] <2*d [ i ]  [j])  { 
f2  =  ion  [j]  .Concentration  *  (h[i]  [j]  [  k] ) ; 
integrand  =  f  1  *r  [  k—  1  ]  *r  [  k—  1  ]  +  f2*r[k]*r[k]; 
//integrand  =  f2*r[k]*r[k] ; 
integrand  *=  2.0*pi; 

N_ads[i]  +=  (integrand)  *  (r [k]  — r[k— 1  ]): 

fl  =  f2; 

k++; 

} 

} 

}*/ 


/*  The  calculation  of  the  excess  free  energy  */ 

F_exc  =  0; 
for  (i=0;i<Ni;i++)  { 
for  (j=0;j<Ni:j++)  { 
k=0;  while  (r [k]  <  d[i]  [j])  k++; 

f2  =  0.5  *  ion  [j], Concentration  *  ion  [i]  .Concentration  *  (h  [i]  [j]  [k]  +  1 .0)  * 
u[i]  [j]  [k] ; 

integrand  =  f2*r[k]*r[k]; 
integrand  *=  4.0*pi; 

F_exc  +=  (integrand)  *  (r [k] — d [i]  [j]); 

fl  =  f2;  k++; 
while  (k<N/2)  { 

f2  =  0.5  *  ion  [j], Concentration  *  ion  [i]  .Concentration  *  (h  [i]  [j]  [k]  +  1 .0)  * 
u[i]  [j]  [k] ; 

integrand  =  f  1  *r  [k— 1  ]  *r  [k— 1  ]  +  f2*r[k]*r[k] ; 
integrand  *=  2.0*pi; 

F_exc  +=  (integrand)  *  (r [k]  — r[k— 1  ]); 
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fl  =  f2; 
k++; 

} 

} 

} 

/*  The  calculation  of  the  osmotic  pressure  */ 

PLexc  =  0; 
for  (i=0;i<Ni;i++)  { 

//PLexc  +=  ion  [i]  .Concentration; 
for  (j=0;j<Ni;j++)  { 
k=0; 

while  (r [ k]  <  d[i] [j])  k++; 

gcontact  =  (h [i]  [j]  [k]  +  1.0)-  (r [k]  -  d[i]  [j])*(h[i]  [j]  [k+1  ]— h [i]  [j]  [k])/(r[k+1  ]- 

r  [k] ); 


PLexc  +=  ion  [i]  .Concentration*ion  [j]  .Concentration  *2*pi*pow(d  [i]  [j]  ,3.0)* 
gcontact  /3.0:  //  contact  theorem  (HC  interaction) 

fl  =  (h [i]  [j]  [k]  +  1.0)*  4.0*pi*pow(r[k],3.0)  *  (u [i]  [j]  [k+1  ]  —  u [i]  [j]  [k-1  ])  / 

(r [k+1  ]  -  r[k— 1  ]): 

PLexc  -=  ion  [i]  .Concentration  *  ion  [j]  .Concentration  /  6.0  *  (fl)  *  (r  [k]  — d  [i]  [j]); 
//  electrostatic  contribution 
while  (k  <  N/2)  { 

f2  =  (h [ i ]  [j]  [k+1  ]  +  1 .0)  *  4.0*pi*pow(r[k+1  ]  ,3.0)  *  (u [i]  [j]  [k+2]  -  u[i]  [j]  [k])  / 
(r [ k+2]  -  r[k] ); 

integrand  =  0.5*(f1  +  f2); 

PLexc  -=  ion  [i] .  Concentration  *  ion  [j], Concentration  /  6.0  *  (integrand)  * 

(r [ k+ 1  ]  — r [k] );  //  electrostatic  contribution 
fl  =  f2; 
k++; 

} 

} 

} 


void  RDFevaluator::ExtrapolateNewCorrelationFunctions(int  n,  int  Ns,  double  *IBmem){ 
double  frac; 

frac  =  (IBmem[0]-IBmem[1  ])  /  (IBmem[1  ]-IBmem[2]); 

cout  «  "WnRemembering,  and  linear  extrapolation  of  correlation  functionsWn"  «  endl; 
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for(i=0;i<Ni;i++)  { 


guessPhi  [i]  =  guessPhiBigMem[n  +  i*Ns]  +  (guessPhiBigMem[n  +  i*Ns]  — 
guessPhiBigMem2[n  +  i*Ns])  *  frac; 

for(j=0;j<Ni;j++)  { 
for(k=0;k<N:k++)  { 

h[i]  [j]  [k]  =  hBigMem[n  +  i*Ns  +  j*(Ni*Ns)  +  k*(Ni*Ni*Ns)]  +  (hBigMem[n  +  i*Ns  + 
j*(Ni*Ns)  +  k*(Ni*Ni*Ns)]  -  hBigMem2[n  +  i*Ns  +  j*(Ni*Ns)  +  k*(Ni*Ni*Ns)])  *  frac; 

c[i]  [j]  [k]  =  cBigMem[n  +  i*Ns  +  j*(Ni*Ns)  +  k*(Ni*Ni*Ns)]  +  (cBigMem[n  +  i*Ns 
+  j  *  ( N  i  *  N  s )  +  k*(Ni*Ni*Ns)]  -  cBigMem2[n  +  i*Ns  +  j*(Ni*Ns)  +  k*(Ni*Ni*Ns)])  *  frac; 
cprev [i]  [j]  [k]  =  c[i]  [j]  [k]; 

} 

} 


} 


} 

void  RDFevaluator::RememberCorrelationFunctions(int  n,  inf  Ns){ 
cout  «  "WnRemembering  correlation  functionsWn"  «  endl; 
for(i=0;i<Ni;i++)  { 


guessPhiBigMem2[n  +  i*Ns]  =  guessPhiBigMem  [n  +  i*Ns]; 
guessPhiBigMem[n  +  i*Ns]  =  guessPhi  [i] ; 

for(j=0;j<Ni;j++)  { 
for(k=0;k<N:k++)  { 

hBigMem2[n  +  i*Ns  +  j*(Ni*Ns)  +  k*(Ni*Ni*Ns)]  =  hBigMem[n  +  i*Ns  +  j*(Ni*Ns)  + 
k*(Ni*Ni*Ns)]; 

cBigMem2[n  +  i*Ns  +  j*(Ni*Ns)  +  k*(Ni*Ni*Ns)]  =  cBigMem[n  +  i*Ns  +  j*(Ni*Ns)  + 
k*(Ni*Ni*Ns)]; 

hBigMem[n  +  i*Ns  +  j*(Ni*Ns)  +  k*(Ni*Ni*Ns)]  =  h[i]  [j]  [k] : 
cBigMem[n  +  i*Ns  +  j*(Ni*Ns)  +  k*(Ni*Ni*Ns)]  =  c[i]  [j]  [k] ; 

} 

} 


} 


} 
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void  RDFevaluator::RecallCorrelationFunctions(int  n,  int  Ns){ 


cout  «  "WnRecalling  correlation  functionsWn"  «  endl; 


for(i=0;i<Ni;i++)  { 


guessPhi[i]  =  guessPhiBigMem[n  +  i*Ns]; 

for(j=0;j<Ni;j++)  { 
for(k=0;k<N:k++)  { 

h[i]  [j]  [k]  =  hBigMem[n  +  i*Ns  +  j*(Ni*Ns)  +  k*(Ni*Ni*Ns)]; 
c[i]  [j]  [k]  =  cBigMem[n  +  i*Ns  +  j*(Ni*Ns)  +  k*(Ni*Ni*Ns)] ; 
cprev [i]  [j]  [k]  =  c[i]  [j]  [k]; 

} 

} 


} 


} 

void  RDFevaluatorcRecordCorrelationFunctions  ()  { 

int  count  =  3,  measure,  length; 
char  *dataname,line[80]; 
ofstream  datafile; 


dataname  =  (char*)  calloc  (strlen(projectname)+14,sizeof(char)); 
strcpy(dataname.projectname);  strcat(dataname, "_RDF.dat"); 

//cout  «  "WnWnfile  is  named  "  «  dataname  «  endl; 

datafile.open(dataname); 

datafile  «  "#  Radial  distribution  function  g  and  direct  correlation  function  c,  obtained 
by  the  OZ  equation  with  the  "  «  methodname  «  "  closure,"  «  endl; 
datafile  «  "#  for  a  system  with  characteristics:Wn"  «  endl; 

datafile  «  "#Wt  Wtnumber  of  components,  Ni  =  "  «  setw(15)  «  Ni  «  endl  «  endl; 
for  (i=0;i<Ni;i++)  { 

length  =  sprintf  (line,  "#Wt  Wttype  %d  (%ss)  has  charge  %.2f ",  i+1,  ion[i].name, 
ion  [i]  .Charge); 
datafile  «  line; 
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if  (i==0)  measure  =  length; 

datafile  «  setw(20  +  measure-length)  «  " 

datafile  «  "Wtdiameter 

datafile  «  setw(5)  «  ion [i], Diameter  «  "  nmWtbulk  density  "  «  setw(15)  « 
ion [i]  .Concentration/NA  «  "  M"  «  endl: 

} 

datafile  «  "Wn#"  «  setw(40)  «  "Bjerrum  length"  «  setw(15)  «  "IB"  «  setw(15)  « 
IB  «  "  nm"  «  endl; 

datafile  «  "#"  «  setw(40)  «  "radius  of  the  cell"  «  setw(15)  «  "RD"  «  setw(15)  « 
RD  «  "  /kappaD  with  minimal  value  of  R_min  =  "  «  Rmin  «  "  nm"  «  endl; 

datafile  «  "#"  «  setw(40)  «  "Debye  length"  «  setw(15)  «  "1 /kappaD"  «  setw(15) 
«  1 .0/kappaD  «  "  nm"  «  endl; 

datafile  «  "#"  «  setw(40)  «  "maximal  coupling  strength"  «  setw(15)  «  "Gamma" 

«  setw(15)  «  Gamma  «  "  kT"  «  endl; 

datafile  «  "#"  «  setw(40)  «  "cell  width"  «  setw(15)  «  "R"  «  setw(15)  «  R  «  " 
nm"  «  endl; 

datafile  «  "#"  «  setw(40)  «  "Mixing  parameter"  «  setw(15)  «  "alpha"  «  setw(15) 
«  alpha  «  endl; 

datafile  «  "#"  «  setw(40)  «  "Number  of  grid  points"  «  setw(15)  «  "  N"  «  setw(15) 
«  N  «  endl; 

datafile  «  "WnWn"  «  "#"  «  setw(1 1)  «  "1)  rWn"  «  "#"  «  setw(1 1)  «  "2)  kWn"; 
for  (i=0;i<Ni;i++)  {  for  (j=i;j<Ni;j++)  {  datafile  «  "#"  «  setw(7)  «  count  «  ") 

g_"  «  i  «  j  «  "(r)Wn":  count++;  }} 

for  (i=0;i<Ni;i++)  {  for  (j=i:j<Ni:j++)  {  datafile  «  "#"  «  setw(7)  «  count  «  ") 

c_"  «  i  «  j  «  "(r)Wn";  count++;  }} 

for  (i=0;i<Ni;i++)  {  for  (j=i;j<Ni;j++)  {  datafile  «  "#"  «  setw(7)  «  count  «  ") 

gDH_"  «  i  «  j  «  "(r)Wn":  count++;  }} 

for  (i=0;i<Ni;i++)  {  for  (j=i;j<Ni;j++)  {  datafile  «  "#"  «  setw(7)  «  count  «  ") 

gLDH_"  «  i  «  j  «  "(r)Wn";  count++;  }} 
for  (i=0;i<Ni;i++)  {  for  (j=i;j<Ni;j++)  {  datafile  «  "#"  «  setw(7)  «  count  «  ") 

g_"  «  i  «  j  «  "(k)Wn";  count++;  }} 

for  (i=0;i<Ni;i++)  {  for  (j=i;j<Ni;j++)  {  datafile  «  "#"  «  setw(7)  «  count  «  ") 

c_"  «  i  «  j  «  "(k)Wn";  count++;  }} 

datafile  «  "Wn#"  «  setw(19)  «  "D"; 
for  (i=1  :i<count-1  ;i++)  datafile  «  setw(1 9)  «  i+1  «  ")"; 
datafile  «  "WnWn"; 
if  (N>3000)  { 

for  (k=1;k<N;k++)  if(k%int(N*1 .0/3000. 0)==0){ 
datafile  «  setw(20)  «  r[k]  «  setw(20)  «  K[k] ; 

for  (i=0;i<Ni;i++)  {  for  (j=i;j<Ni;j++)  {  datafile  «  setw(20)  «  h[i]  [j]  [k]  + 

1.0;  }} 

for  (i=0;i<Ni;i++)  {  for  (j=i;j<Ni;j++)  {  datafile  «  setw(20)  «  c[i]  [j]  [k]; 

}} 
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for  (i=0;i<Ni;i++)  {  for  (j=i;j<Ni;j++)  {  datafile  «  setw(20)  «  hDH  [i]  [j]  [k] 

+  1 .0;  }} 

for  (i=0;i<Ni;i++)  {  for  (j=i;j<Ni;j++)  {  datafile  «  setw(20)  « 

hLDH[i]  [j]  [k]  +  1 .0;  }} 

for  (i=0;i<Ni;i++)  {  for  (j=i;j<Ni;j++)  {  datafile  «  setw(20)  «  hFt[i]  [j]  [k] ; 

}} 

for  (i=0;i<Ni;i++)  {  for  (j=i;j<Ni;j++)  {  datafile  «  setw(20)  «  cFt [i]  [j]  [k] ; 

}} 

datafile  «  endl; 

} 

}  else  { 

for  (k=1;k<N;k++)  { 

datafile  «  setw(20)  «  r[k]  «  setw(20)  «  K[k] ; 

for  (i=0;i<Ni;i++)  {  for  (j=i;j<Ni;j++)  {  datafile  «  setw(20)  «  h[i]  [j]  [k]  + 

1.0;  }} 

for  (i=0;i<Ni;i++)  {  for  (j=i;j<Ni;j++)  {  datafile  «  setw(20)  «  c[i]  [j]  [k] ; 

}} 

for  (i=0;i<Ni;i++)  {  for  (j=i;j<Ni;j++)  {  datafile  «  setw(20)  «  hDH [i]  [j]  [k] 

+  1 .0;  }} 

for  (i=0;i<Ni;i++)  {  for  (j=i;j<Ni;j++)  {  datafile  «  setw(20)  « 

hLDH [i]  [j]  [k]  +  1 .0;  }} 

for  (i=0;i<Ni;i++)  {  for  (j=i;j<Ni;j++)  {  datafile  «  setw(20)  «  hFt[i]  [j]  [k] ; 

}} 

for  (i=0;i<Ni;i++)  {  for  (j=i;j<Ni;j++)  {  datafile  «  setw(20)  «  cFt [i]  [j]  [k] ; 

}} 

datafile  «  endl; 

} 

} 

datafile. closet); 
free(dataname); 

} 

void  RDFevaluator;:RecordThermodynamicPotentials  ()  { 

double  FJd,  Pijd,  F_exc_LDFI,  Pi_exc_LDFI,  *mu_exc_LDF1,  totalConcentration=0,  pCS, 
eta,  rhotot; 
int  measure,  length; 
char  *dataname,line[80]; 
ofstream  datafile; 

mu_exc_LDPI  =  (double*)  calloc  (Ni,sizeof(double)); 
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//WARNING  line  below  about  kcontact  can  be  omitted 
int  kcontact;  k=0:  while  (r [k] <d [0]  [0])  k++;  kcontact  =  k; 

eta=0; 

for  (i=0;i<Ni;i++)  eta  +=  pi*pow(ion[i], Diameter, 3. 0)/6.0  *  ion [i] .Concentration; 
rhotot=0; 

for  (i=0;i<Ni;i++)  rhotot  +=  ion [i] .Concentration; 

pCS  =  rhotot  *(1.0  +  eta  +  eta*eta  -  eta*eta*eta)  /  pow(1 .0-eta, 3.0); 

PCS  =  0.0; 

F_exc_LDH  =  -  pow(kappaD,3.0)/(1 2.0*pi); 

Pi_exc_LDH  =  -  pow(kappaD,3.0)/(24.0*pi)  /  (1.0  +  kappaD*ion[0] .Diameter)  +  pCS; 
Pi_exc_LDH  =  -  kappaD  *  IB  *  ion [0]. Concentration  /  6.0  +  pCS; 
for  (i=0;i<Ni;i++)  mu_exc_LDH[i]  =  -  0.5  *  kappaD  *  IB  *  ion [i] .Charge  *  ion [i] . Charge; 
//for  (i=0;i<Ni;i++)  mu_exc_LDH[i]  =  -  pow(kappaD,3.0)/(8.0*pi)  / 
ion  [i]  .Concentration; 

for  (i=0;i<Ni;i++)  totalConcentration  +=  ion [i], Concentration; 

dataname  =  (char*)  calloc  (strlen(projectname)+14,sizeof(char)); 
strcpy(dataname.projectname);  strcat(dataname, "_EOS.dat"); 

//cout  «  "WnWnfile  is  named  "  «  dataname  «  endl; 

if (FirstRecording)  { 
datafile.open(dataname); 

datafile  «  "#  Radial  distribution  function  g  and  direct  correlation  function  c,  obtained 
by  the  OZ  equation  with  the  "  «  methodname  «  "  closure,"  «  endl; 
datafile  «  "#  for  a  system  with  characteristics:Wn"  «  endl; 

datafile  «  "#Wt  Wtnumber  of  components,  Ni  =  "  «  setw(15)  «  Ni  «  endl  «  endl; 
for  (i=0;i<Ni:i++)  { 

length  =  sprintf  (line,  "#Wt  Wttype  %d  (%ss)  has  charge  %.2f",  i+1,  ion  [i], name, 
ion  [i]  .Charge); 

datafile  «  line; 

if  (i==0)  measure  =  length; 

datafile  «  setw(20  +  measure-length)  «  " 

datafile  «  "Wtdiameter 

datafile  «  setw(5)  «  ion [i]  .Diameter  «  "  nmWtbulk  density  "  «  setw(15)  « 
ion [i]  .Concentration/NA  «  "  M"  «  endl; 

} 
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datafile  «  "Wn#"  «  setw(40)  «  "Bjerrum  length"  «  setw(15)  «  "IB"  «  setw(15) 
«  IB  «  "  nm"  «  endl; 

datafile  «  "#"  «  setw(40)  «  "radius  of  the  cell"  «  setw(15)  «  "RD"  «  setw(15) 
«  RD  «  11  /kappaD  with  minimal  value  of  R_min  =  "  «  Rmin  «  11  nm"  «  endl; 

datafile  «  "#"  «  setw(40)  «  "Debye  length"  «  setw(15)  «  "1  /kappaD"  « 
setw(15)  «  1.0/kappaD  «  "  nm"  «  endl; 

datafile  «  "#"  «  setw(40)  «  "maximal  coupling  strength"  «  setw(15)  «  "Gamma" 
«  setw(15)  «  Gamma  «  "  kT"  «  endl; 

datafile  «  "#"  «  setw(40)  «  "cell  width"  «  setw(15)  «  "R"  «  setw(15)  «  R  «  " 
nm"  «  endl; 

datafile  «  "#"  «  setw(40)  «  "Mixing  parameter"  «  setw(15)  «  "alpha"  « 
setw(15)  «  alpha  «  endl; 

datafile  «  "#"  «  setw(40)  «  "Number  of  grid  points"  «  setw(15)  «  "  N"  « 
setw(15)  «  N  «  endl; 

datafile  «  "WnWn"; 

for  (i=0;i<Ni;i++)  {  datafile  «  "#"  «  setw(40)  «  i+1  «  ")  density  of "  « 
ion [ i ]  .name  «"s  (type  "«  i+1  «  ")  (M)"  «  endl:  } 

for  (i=0;i<Ni;i++)  {  datafile  «  "#"  «  setw(40)  «  i+Ni+1  «  ")  excess  chemical 

potential  (kT)  of  "  «  ion [i]. name  «"s  (type  "  «  i+1  «  ")"  « 

endl;  } 

for  (i=0;i<Ni:i++)  {  datafile  «  "#"  «  setw(40)  «  i+2*Ni+1  «  ")  LDH  excess 

chemical  potential  (kT)  of  "  «  ion [i]. name  «"s  (type  "  «  i+1  «  ")"  « 

endl;  } 

datafile  «  "#"  «  setw(40)  «  1  +  3*Ni  «  ")  free  energy  per  volume  (ideal) 

(kT/V)"  «  endl; 

datafile  «  "#"  «  setw(40)  «  2  +  3*Ni  «  ")  free  energy  per  volume  (excess) 

(kT/V)"  «  endl; 

datafile  «  "#"  «  setw(40)  «  3  +  3*Ni  «  ")  free  energy  per  volume  (excess  LDH) 
(kT/V)"  «  endl; 

datafile  «  "#"  «  setw(40)  «  4  +  3*Ni  «  ")  free  energy  per  volume  (total) 

(kT/V)"  «  endl; 

datafile  «  "#"  «  setw(40)  «  5  +  3*Ni  «  ")  osmotic  pressure  (ideal) 

(kT/V)"  «  endl; 

datafile  «  "#"  «  setw(40)  «  6  +  3*Ni  «  ")  osmotic  pressure  (excess) 

(kT/V)"  «  endl; 

datafile  «  "#"  «  setw(40)  «  7  +  3*Ni  «  ")  osmotic  pressure  (excess  LDH) 

(kT/V)"  «  endl; 

datafile  «  "#"  «  setw(40)  «  8  +  3*Ni  «  ")  osmotic  pressure  (total) 

(kT/V)"  «  endl; 

datafile  «  "#"  «  setw(40)  «  9  +  3*Ni  «  ")  Donnan  Potential 
(kT/e)"  «  endl; 

datafile  «  "#"  «  setw(40)  «  10  +  3*Ni  «  ")  total  concentration  of  particles  (M)" 
«  endl; 

for  (i=0;i<Ni;i++)  {  datafile  «  "#"  «  setw(40)  «  10  +  3*Ni  +  i  +  1  «  ")  Number 
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of  adsorbed  ions  of  "  «  ion[i].name  «"s  (type  "  «  i+1  «  ")"  «  endl;  } 

for  (i=0;i<Ni:i++)  {  datafile  «  "#"  «  setw(40)  «  10  +  4*Ni  +  i  +  1  «  ")  Mean 

energy  of  separation  of  "  «  ion  [i], name  «"s  (type  "  «  i+1  «  ")"  «  endl:  } 

datafile  «  endl: 
datafile  «  "#": 

for  (i=0:i<5*Ni+1 0:i++)  {  datafile  «  setw(14)  «  i+1  «  } 

datafile  «  endl: 

datafile. close(): 

FirstRecording  =  false: 

} 

FJd  =  PLid  =  0: 

for  (i=0;i<Ni;i++)  Pi_id  +=  ion [ i] . Concentration: 

for  (i=0;i<Ni;i++)  FJd  +=  ion [i] .Concentration*(log(ion [i] . Concentration)  -  1.0): 
datafile.open(dataname,ios::app); 

for  (i=0;i<Ni;i++)  {  datafile  «  setw(15)  «  ion [i]  .Concentration  /NA:  } 

for  (i=0;i<Ni;i++)  {  datafile  «  setw(15)  «  mu_exc[i]:  } 

for  (i=0;i<Ni;i++)  {  datafile  «  setw(15)  «  mu_exc_LDFI[i]:  } 

datafile  «  setw(15)  «  F_id; 

datafile  «  setw(15)  «  F_exc; 

datafile  «  setw(15)  «  F_exc_LDFI: 

datafile  «  setw(15)  «  F_id  +  F_exc: 

datafile  «  setw(15)  «  Pijd: 

datafile  «  setw(15)  «  PLexc; 

datafile  «  setw(15)  «  Pi_exc_LDPI: 

datafile  «  setw(15)  «  Pijd  +  PLexc: 

datafile  «  setw(15)  «  phiD: 

datafile  «  setw(15)  «  totalConcentration/NA: 

for  (i=0;i<Ni;i++)  {  datafile  «  setw(15)  «  N_ads[i]:  } 

for  (i=0;i<Ni;i++)  {  datafile  «  setw(15)  «  omega_ads[i] : 

} 

//datafile  «  setw(15)  «  kcontact: 
datafile  «  endl: 
datafile.  closeQ; 
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free(dataname); 


/*  this  part  is  written  by  HKK*/ 

dataname  =  (char*)  calloc  (strlen(projectname)+14,sizeof(char)); 
strcpy(dataname,prcjectname);  strcat(dataname, "_EOS_simple.dat"); 

dataf  ile.  open  (dataname,  icscapp); 

for  (i=0;i<Ni;i++)  {  datafile«setw(15)«ion[i].Concentration/NA; 

datafile«setw(1 5)«mu_exc[i] :} 

datafile«setw(1 5)«F_exc; 

datafile«endl; 

datafile. close(); 


/*end  of  HKK  part*/ 


free(mu_exc_LDH);  free(dataname); 


} 

void  RDFevaluatorcRecordTime  (int  *Time)  { 

ofstream  datafile; 
char  filename[80] ; 


strcpy(filename,  projectname);  strcat(filename, "_RDF.dat"); 
datafile.  open(filename,ios::app); 

datafile  «  "WnWnWn#"  «  setw(10)  «  evaluations  «  setw(40)  «  "  evaluations 
before  convergence. Wn"  «  endl; 

datafile  «  "Wn#WtData  in  file  was  generated  in  "  «  setprecision  (0)  «  TimefO]  «  " 
hours,  "  «  Time[1  ]  «  "  minutes,  and  "  «  Time[2]  «  "  seconds"  «  endl; 

datafile  «  "Wn#WtProgram  had  been  running  for  "  «  setprecision  (0)  «  Time  [3]  « 
hours,  "  «  Time[4]  «  "  minutes,  and  "  «  Time[5]  «  "  seconds"  «  endl; 
datafile. close(); 


strcpy(filename,  projectname);  strcat(filename, "_EOS.dat"); 
datafile.  open(filename,ios::app); 
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datafile  «  "WnWnWn#"  «  setw(IO)  «  evaluations  «  setw(40)  «  "  evaluations 
before  convergence. Wn"  «  endl; 

datafile  «  "Wn#WtData  in  file  was  generated  in  11  «  setprecision  (0)  «  Time[0]  «  " 
hours,  "  «  Time [  1  ]  «  "  minutes,  and  "  «  Time[2]  «  11  seconds"  «  endl; 

datafile  «  "Wn#WtProgram  had  been  running  for  "  «  setprecision  (0)  «  Time  [3]  « 
hours,  "  «  Time[4]  «  "  minutes,  and  "  «  Time[5]  «  "  seconds"  «  endl; 
datafile. close(); 


cout  «  "Wnprogram  ran  for "  «  setprecision  (0)  «  Time[0]  «  "  hours,  "  «  Time[1  ] 
«  "  minutes,  and  "  «  Time[2]  «  "  seconds"  «  setprecision  (10)  «  endl; 

} 

void  RDFevaluatorcRun  (double  Itermax)  { 

time_t  start, end; 
int  Time[6] ,ns; 
time  (&start); 

double  IB0=IB,rho0,Steps=1 00.0, step; 

rho0=ion[1  ] .Concentration;  ion [  1  ] .Concentration  =  rho0/(Steps); 

itermax  =  Itermax; 

HSC=true; 

for(i=0;i<Ni;i++)  guessPhi  [i]  =  ion  [I] . Charge  *  0.1  *  exp(-4.0); 

if(Gamma  >  1 0)  {  Steps  =  1 .0;  cout  «  "Going  to  IB  =  "  «  IB0  «  "  in  "  «  Steps  «  " 
steps."  «  endl;  } 
for  (ns=0;ns<Steps;ns++)  { 

//IB  =  (ns+1  )*IB0/ (Steps); 

ion  [  1  ]  .Concentration  =  (ns+1  )*rho0/(Steps); 

SetPotential(HSC); 

ResetlonParameters(lmposeLocalChargeNeutrality); 

//cout  «  "IB  =  "  «  IB  «  ",  alpha  =  "  «  alpha  «  "  and  Gamma  =  "  «  Gamma  « 
endl; 

cout  «  "salt  concentration  =  "  «  ion [0]  .Concentration/NA  «  "  M"  «  endl; 
turn  =  1 .0; 

if  (ns  ==  0)  turn  =  0.1 ; 
if(method==2)  EvaluatePhiDHEMSAQ; 

EvaluateHNCSChybrid(itermax); 
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CalculateThermodynamicPotentialsQ; 

} 

RecordCorrelationFunctionsO; 

RecordThermodynamicPotentialsO; 


time  (&end);  Time[0]  =  int(difftime  (end,start)/3600.0);  Time[1]  =  int(int(difftime 
(end,start))%3600/60.0);  Time[2]  =  int(difftime  (end,start))%60; 

RecordTime  (Time); 


} 

void  RDFevaluator::RunAddSaltSeries  (int  Ns,  double  Itermax)  { 

time_t  start, end, checkl  ,check2,check3; 

int  Time[6] ; 

time  (&start); 

double  factor,  test; 

int  n; 

itermax  =  Itermax; 

HSC=true; 

time  (&check1);  time  (&check3); 

ion  [0]  .Concentration*^  e-7:ion[1  ]  .Concentration*^  e-7; 

for(i=0;i<Ni;i++)  guessPhi [i]  =  ion [i] . Charge  *  0.1  *  exp(-4.0); 

factor  =  pow(10.0,  7.0  /  (1 ,0*Ns-1 .0)); 
for  (n=0;n<Ns;n++)  { 

ResetlonParameters(lmposeLocalChargeNeutrality); 

cout  «  "changing  the  concentration  of  the  "  «  ion[0].name  «  "s  (type  1),  and  the  " 
«  ion [  1  ] .name  «  "s  (type  2)"  «  endl; 

ion [  1  ] .Concentration  +=  fabs(ion[0].Charge/ion[1  ]. Charge)  *  (factor  -  1 .0) 

*ion[0]  .Concentration; 

ion [0] .Concentration  +=  (factor  -  1.0)  *ion[0] .Concentration; 
cout  «  ion [0]. name  «  "s  (type  "  «  1  «  ")  density  =  "  «  ion[0].Concentration/NA 
«  "  M"  «  endl; 

cout  «  ion [  1  J.name  «  "s  (type  "  «  2  «  ")  density  =  "  «  ion [  1  ] .Concentration/NA 
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«  "  M"  «  endl; 

test=0;  for  (i=0;i<Ni;i++)  test  +=  ion [i]  .Concentration  *  ion [i]  .Charge: 

cout  «  "total  charge  density  =  "  «  test/NA  «  11  M"  «  endl; 

ResetlonParameters(lmposeLocalChargeNeutrality); 
cout  «  "WnWnR  =  "  «  R  «  "  nmWnWn"  «  endl; 

SetPotential(HSC); 

if(method==2)  EvaluatePhiDHEMSAO; 

EvaluateHNCSChybrid(itermax); 

CalculateThermodynamicPotentialsO; 

RecordCorrelationFunctionsO; 

RecordThermodynamicPotentialsO; 

time  (&check2);  if  (int(difftime  (check2,check3))  >  5*60)  { 

Time[0]  =  int(difftime  (check2,check1  )/3600.0);  Time [  1  ]  =  int(int(difftime 
(check2,check1  ))%3600/60.0);  Time[2]  =  int(difftime  (check2,check1  ))%60; 

cout  «  "Wnprogram  has  been  running  for  "  «  setprecision  (0)  «  Time[0]  «  " 
hours,  "  «  Time[1  ]  «  "  minutes,  and  "  «  Time[2]  «  "  seconds"  «  setprecision  (10) 
«  endl; 

time  (&check3); 

} 

} 

time  (&end);  Time[0]  =  int(difftime  (end,start)/3600.0);  Time[1]  =  int(int(difftime 
(end,start))%3600/60.0);  Time[2]  =  int(difftime  (end,start))%60; 

RecordTime  (Time); 


} 

void  RDFevaluatorcRunAddSaltSeriesThlnt  (int  Ns,  int  Nl,  double  Itermax)  { 

time_t  start, end,  checkl  ,check2,check3; 
int  Time[6] ; 
int  n,  nl,  Nmem; 

double  *Fexc,*muexc,  delta_lambda,  IB_final,  IBmem[3],  RDmem: 
double  factor,  test,  decades,  totalrho; 
char  rootname[60],gamma[14]; 

Fexc  =  (double*)  calloc  (Ns.sizeof(double)); 
muexc  =  (double*)  calloc  (Ni*Ns,sizeof(double)); 

hBigMem  =  (double*)  realloc  (hBigMem,(Ni*Ni*N*Ns+1  )*sizeof(double)); 
cBigMem  =  (double*)  realloc  (cBigMem,(Ni*Ni*N*Ns+1  )*sizeof(double)); 
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guessPhiBigMem  =  (double*)  realloc  (guessPhiBigMem,(Ni*Ns+1  )*sizeof(double)); 
hBigMem2  =  (double*)  realloc  (hBigMem2,(Ni*Ni*N*Ns+1  )*sizeof(double)); 
cBigMem2  =  (double*)  realloc  (cBigMem2,(Ni*Ni*N*Ns+1  )*sizeof(double)); 
guessPhiBigMem2  =  (double*)  realloc  (guessPhiBigMem2,(Ni*Ns+1  )*sizeof(double)); 


deltajambda  =  1 .0/double(NI); 

Nmem  =  N; 

IBJinal  =  IB; 

RDmem  =  RD; 

strcpy  (rootname,  projectname); 

time  (&start); 

for  (nl=0;nl<NI;nl++){ 

IB  =  (nl+1)  *  IBJinal  *  delta_lambda; 

IBmem[2]  =  IBmem[1];  IBmem[1]  =  IBmem[0];  IBmem[0]  =  IB; 

itermax  =  Itermax; 

HSC=true; 

FirstRecording=true; 

time  (&check1);  time  (&check3); 

decades  =  7.0; 

//ion  [0]  .Concentration*=pow(1 0.0, -decades); 
ion  [  1  ]  .Concentration*=pow(1 0.0, -decades); 
factor  =  pow(10.0,  decades  /  double(Ns)); 

for(i=0;i<Ni;i++)  guessPhi [I]  =  ion [i] .Charge  *  0.1  *  exp(-4.0); 
//RememberCorrelationFunctions(O.Ns); 


for  (n=0:n<Ns;n++)  { 

ResetlonParameters(lmposeLocalChargeNeutrality); 

cout  «  "changing  the  concentration  of  the  "  «  ion [0], name  «  "s  (type  1),  and 
the  "  «  ion[1].name  «  "s  (type  2)"  «  endl; 

//ion [  1  ]. Concentration  +=  fabs(ion[0].Charge/ion[1  ]. Charge)  *  (factor  -  1 .0) 
*ion[0]  .Concentration; 
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//ion [0] .Concentration  +=  (factor  -  1.0)  *ion[0]. Concentration; 

//ion [0] .Concentration  +=  fabs(ion[1  ].Charge/ion[0], Charge)  *  (factor  -  1 .0) 
*ion[1  ]. Concentration; 

ion [  1  ] .Concentration  +=  (factor  -  1 .0)  *ion[1  ] .Concentration; 

ResetlonParameters(lmposeLocalChargeNeutrality); 

cout  «  ion [0], name  «  "s  (type  "  «  1  «  ")  density  =  "  « 
ion [0]  .Concentration/NA  «  "  M"  «  endl; 

cout  «  ion [  1  ]  .name  «  "s  (type  "  «  2  «  ")  density  =  11  « 
ion [  1  ]  .Concentration/NA  «  "  M"  «  endl; 

test=0;  for  (i=0;i<Ni:i++)  test  +=  ion [i] . Concentration  *  ion [i] .Charge; 
cout  «  "total  charge  density  =  "  «  test/NA  «  "  M"  «  endl; 
cout  «  "Gamma  =  "  «  Gamma  «  "  kT"  «  endl; 

//ion [2] .Concentration  =  0.1  -  ion [  1  ]. Concentration  -  ion [0] .Concentration; 

// RD  =  RDmem;  ResetlonParameters(lmposeLocalChargeNeutrality); 

//if(ion[0] .Concentration  <  5e-4  and  Gamma  >  8.0)  {  RD  =  3.0  *  kappaD;  } 

totalrho=0;  for  (i=0;i<Ni;i++)  totalrho  +=  0.5*ion[i], Concentration  * 
fabs(ion[i].Charge)/NA; 

N  =  Nmem; 

if  (totalrho  >  pow(1 0.0, -5))  N/=  2; 
if  (totalrho  >  pow(1 0.0.-3))  N/=  2; 
if  (totalrho  >  pow(1 0.0.-1 ))  N/=  2; 

ResetlonParameters(lmposeLocalChargeNeutrality); 

sprintf(gamma,"_Gamma_%.3f", Gamma);  strcpy  (projectname,  rootname);  strcat 
(projectname,  gamma); 


if (nl>0)  { 

RecallCorrelationFunctions(n,Ns); 

//if (nl>  1 )  ExtrapolateNewCorrelationFunctions(n,Ns,IBmem); 
if  (totalrho  >  0.1  and  Gamma  >  0.0)  { 
alpha  =  0.01 /sqrt(Gamma); 

turn  =  double(nl)/double(nl+1 );  turnstep  =  5e-5/sqrt(Gamma); 
//turnstep  =  1  e-4: 

FastRun  =  false; 

//FastRun  =  true: 

} 

if  (totalrho  >  1 .0  and  Gamma  >  1 1 0.0)  { 
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alpha  =  0.01 ; 


} 

} 

//FastRun  =  false; 

//if(nl==0)  {  FastRun  =  true;  turn  =  1;  } 
if (nl==0  and  totalrho  >  0.1)  { 
alpha  =  0.01 /sqrt(Gamma); 
turn  =  1.0/factor;  turnstep  =  1e-4; 

FastRun  =  false; 

} 

//if (nl<3  and  ion [0]  .Concentration/NA  >  0.05)  {  FastRun  =  false;  turn  =  1 .0; 
turnstep  =  5e-4;  } 

if(Gamma  <  4.0  and  totalrho  >  10.08)  {  alpha  =  0.05;  turn  =  1 ;  turnstep  =  5e-4; 
FastRun  =  true;} 

SetPotential  (FHSC) ; 

/*  Check  if  the  free  energy  still  has  finite  values  */ 

if (Fexc [n] !=Fexc[n])  {  F_exc  =  0;  for(i=0;i<Ni;i++)  mu_exc[i]  =  0;  goto  Record;  } 
if(method==2)  EvaluatePhiDFIEMSAO; 

EvaluateFINCSChybrid(itermax);  cout  «  "alpha  =  "  «  alpha  «  endl: 
CalculateThermodynamicPotentialsO; 

F_exc  =  Fexcfn]  +  delta_lambda*F_exc  *IB_final/IB;  //  (u(r)  needs  to  be  the 
unperturbed  pair  potential,  hence  the  factor  IB_final/IB) 

for(i=0;i<Ni;i++)  mu_exc[i]  =  muexc[n  +  Ns*i]  +  delta_lambda*mu_exc[i] 
*IB_final/IB; 

Fexc[n]  =  F_exc;  for(i=0;i<Ni;i++)  muexcfn  +  Ns*i]  =  mu_exc[i]; 

Record; 

RecordCorrelationFunctionsO; 

RecordThermodynamicPotentialsO; 


time  (&check2);  if  (intfdifftime  (check2,check3))  >  5*60)  { 

Time[0]  =  int(difftime  (check2,check1  )/3600.0);  Time [  1  ]  =  int(int(difftime 
(check2,check1  ))%3600/60.0);Time[2]  =  int(difftime  (check2,check1  ))%60: 

Time[3]  =  intfdifftime  (check2, start  )/3600.0):  Time[4]  =  int(int(difftime 
(check2, start  ))%3600/60.0);  Time[5]  =  int(difftime  (check2, start  ))%60; 

cout  «  "WnGamma  =  "  «  Gamma  «  "  series  has  been  running  for  "  « 
setprecision  (0)  «  Time[0]  «  "  hours,  "  «  Time[1  ]  «  "  minutes,  and  "  «  Time[2]  « 
seconds"  «  setprecision  (10)  «  endl; 
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cout  «  "WnProgram  "  «  projectname  «  "  has  been  running  for "  « 
setprecision  (0)  «  Time[3]  «  "  hours,  "  «  Time[4]  «  "  minutes,  and  "  «  Time[5]  « 
seconds"  «  setprecision  (10)  «  endl; 
time  (&check3); 

} 

RememberCorrelationFunctions(n,Ns); 

} 

time  (&end);  Time[0]  =  int(difftime  (end,check1)/3600.0);  Time [  1  ]  = 
int(int(difftime  (end.checkl ))%3600/60.0);  Time[2]  =  int(difftime  (end,check1  ))%60; 

Time[3]  =  int(difftime  (end,start)/3600.0);  Time[4]  =  int(int(difftime 
(end,start))%3600/60.0);  Time[5]  =  int(difftime  (end,start))%60; 

RecordTime  (Time); 

} 

free(Fexc);  free(muexc); 

FreeParametersO; 


} 

void  RDFevaluatoruRunChangePolymer  (int  Np,  int  Nres_requested,  double  Itermax)  { 

time_t  start, end.checkl  ,check2,check3; 
int  Time[3] ,  n,  NiMem; 
double  factor; 
char  Bulk [64] ; 

itermax  =  Itermax; 

HSC=true; 

time  (&start); 

Nres  =  Nres_requested; 

for(i=0;i<Ni;i++)  guessPhi [i]  =  ion [i] . Charge  *  0.1  *  exp(-4.0): 

NiMem  =  Ni;  Ni  =  Nres; 

/*  Calculation  of  the  bulk  concentrations  and  chemical  potentials  (hence  Ni  is 
temporarily  set  to  Nres)  */ 

rho_res  =  (double*)  realloc  (rho_res,(Nres+1  )*sizeof(double)); 
mu_res  =  (double*)  realloc  (mu_res,(Nres+1  )*sizeof(double)); 
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time  (&check1);  time  (&check3); 

cout  «  "Evaluating  the  reservoir  concentrationWn"  «  endl; 

ResetlonParameters(lmposeLocalChargeNeutrality); 

SetPotential(HSC); 

if(method==2)  EvaluatePhiDHEMSAQ; 

EvaluateHNCSChybrid(itermax); 

CalculateThermodynamicPotentialsO; 

strcpy  (Bulk.projectname);  strcat  (projectname,"_Res"); 

RecordCorrelationFunctionsO;  RecordThermodynamicPotentialsO; 

strcpy  (projectname.Bulk);  FirstRecording  =  true; 

time  (&check2); 

Time[0]  =  int(difftime  (check2,check1)/3600.0);  Time[1]  =  int(int(difftime 
(check2,check1  ))%3600/60.0):  Time[2]  =  int(difftime  (check2,check1  ))%60; 

cout  «  "WnReservoir  evaluation  required  "  «  setprecision  (0)  «  Time[0]  «  "  hours,  " 
«  Time[1  ]  «  "  minutes,  and  "  «  Time[2]  «  "  secondsWn"  «  setprecision  (10)  « 
endl; 

cout  «  "Reservoir  concentrations  «  endl; 
for  (i=0;i<Ni;i++)  { 

cout  «  ion [i], name  «  "s  (type  "  «  i  «  ")WtWtdensity  =  "  « 
ion [i] .Concentration/NA  «  "  M"  «  ",Wtmu_exc  =  "  «  mu_exc[i]  «  "  kT"  «  endl; 

}  cout  «  endl; 

for(i=0;i<Nres;i++)  { 
rho_res[i]  =  ion  [i], Concentration: 
mu_res[i]  =  log(rho_res  [i] )  +  mu_exc[i]; 

} 

Ni  =  NiMem; 

/*  Calculation  of  the  concentrations  and  chemical  potentials  in  the  system  with  Nres 
grand  canonical,  and  Ni-Nres  canonical  species  */ 

//ion  [ Nres]  .Concentration  *=  1  e— 3; 
for(i=Nres;i<Ni;i++)  ion [i]  .Concentration  *=  1e-4; 

factor  =  pow(10.0,  6.0  /  (1 ,0*Np-1 .0)); 
for  (n=0;n<Np;n++)  { 
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cout  «  "Wn**  Running  "  «  projectname  «  "  **Wn"  «  endl: 
cout  «  "WnWn***  Step  "  «  n+1  «  11  of  "  «  Np  «  "  ***"  «  endl; 
for(i=Nres;i<Ni;i++)  cout  «  "changing  the  concentration  of  the  "  «  ion[i].name  « 

"s  (type  "  «  i+1  «  ")"  «  endl; 

//ion [ Nres]  .Concentration  *=  factor; 
for(i=Nres;i<Ni;i++)  ion [i], Concentration  *=  factor; 

EvaluateDonnanPotentiaK); 

for(i=0;i<Nres:i++)  {  ion [i], Concentration  =  exp  (mu_res[i]  -  mu_exc[i]  - 
ion [i] .Charge  *  phiD);  } 

ResetlonParametersOlmposeLocalChargeNeutrality); 

cout  «  "WnNew  concentrations  «  endl: 
for  (i=0;i<Ni:i++)  { 

cout  «  ion [i], name  «  "s  (type  "  «  i  «  ")WtWtdensity  =  "  « 
ion [i] .Concentration/NA  «  "  M"  «  ",Wtmu_exc  =  "  «  mu_exc[i]  «  "  kT"  «  endl; 

}  cout  «  endl; 

SetPotential(HSC); 

EvaluatelonDensitiesO;  //  rho_res  and  mu_res  are  the  ion  density  and  (total)  chemical 
potential  of  the  reservoir 

if(method==2)  EvaluatePhiDHEMSAQ; 

EvaluateHNCSChybrid(itermax); 

CalculateThermodynamicPotentialsO; 

RecordCorrelationFunctionsQ; 

RecordThermodynamicPotentialsO; 

time  (&check2);  if  (int(difftime  (check2,check3))  >  5*60)  { 

Time[0]  =  int(difftime  (check2,check1  )/3600.0);  Time [  1  ]  =  int(int(difftime 
(check2,check1  ))%3600/60.0):  Time[2]  =  int(difftime  (check2,check1  ))%60; 

cout  «  "Wnprogram  has  been  running  for  "  «  setprecision  (0)  «  Time[0]  «  " 
hours,  "  «  Time[1  ]  «  "  minutes,  and  "  «  Time[2]  «  "  seconds"  «  setprecision  (10) 
«  endl; 

time  (&check3); 

} 

} 


time  (&end);  Time[0]  =  int(difftime  (end,start)/3600.0);  Time [  1  ]  =  int(int(difftime 
(end,start))%3600/60.0);  Time[2]  =  int(difftime  (end,start))%60; 

RecordTime  (Time); 
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free(rho_res);  free(mu_res); 


} 

void  RDFevaluator::TestgDH()  { 

HSC=true; 

SetPotential(HSC); 

EvaluatePhiDHEMSAO; 

RecordCorrelationFunctionsO; 


} 

void  RDFevaluator::TestDonnanPotential()  { 


Nres  =  3; 

rho_res  =  (double*)  realloc  (rho_res,(Nres+1  )*sizeof(double)); 

ion [3]  .Concentration  *=  1  e— 3; 

ResetlonParameters(lmposeLocalChargeNeutrality); 

cout  «  "Reservoir  concentrations  «  endl: 
for  (i=0;i<Ni;i++)  { 

cout  «  ion [i], name  «  "s  (type  "  «  i  «  ")  density  =  "  «  ion[i].Concentration/NA 
«  "  M"  «  ",  mu_exc  =  "  «  mu_exc[i]  «  11  kT"  «  endl; 

}  cout  «  endl; 

for(i=0;i<Nres;i++)  {  rho_res[i]  =  ion [i] .Concentration;  } 

ion [3]  .Concentration  *=  1e3; 

ResetlonParameters(lmposeLocalChargeNeutrality); 

cout  «  "WnNew  concentrations  «  endl; 
for  (i=0;i<Ni;i++)  { 

cout  «  ion [i], name  «  "s  (type  "  «  i  «  ")  density  =  "  «  ion[i].Concentration/NA 
«  11  M"  «  endl; 

}  cout  «  endl; 

EvaluateDonnanPotentiaK); 
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free(rho_res); 


} 

void  RDFevaluator::FreeParameters()  { 

free(hBigMem): 

free(cBigMem); 

free(guessPhiBigMem); 

free(hBigMem2); 

free(cBigMem2); 

free(guessPhiBigMem2); 

free(phiZeta); 

free(rho_res); 

free(mu_res); 

free(guessPhi); 

free(guessPhiMem); 

free(r); 

free(K); 


} 


void  CheckFile  (char  *datafilename,  bool  *present)  { 
ifstream  check; 

check.open  (datafilename,  ioscbinary  ); 
check.seekg  (0,  ioscend); 
if  (check. tellg()>1 )  { 

*present  =  true; 

}  else  { 

*present  =  false; 

} 


} 

void  AskQuestion  (char  *datafilename,  bool  *proceed)  { 
char  answer; 
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*proceed  =  true; 

cout  «  "File  W""  «  datafilename  «  "W"  already  contains  information.  Overwrite  (o)  or 
exit  (e)?"  «  endl; 
answer  =  cin.get  (); 
if  (answer  !=  'o')  *proceed  =  false; 


} 

void  wait_for_key  ()  { 

#if  defined(WIN32)  1 1  defined(_WIN32)  |  |  defined(_WIN32_)  1 1  defined (_TOS_WIN_) 
//  every  keypress  registered,  also  arrow  keys 

cout  «  endl  «  "Press  any  key  to  continue..."  «  endl; 

FlushConsolelnputBuffer(GetStdHandle(STD_INPUT_HANDLE)); 

_getch(); 

#elif  defined(unix)  1 1  defined( _ unix)  1 1  defined( _ unix _ )  1 1  defined( _ APPLE _ ) 

cout  «  endl  «  "Press  ENTER  to  continue..."  «  endl; 

std;;cin.clear(); 

std::cin.ignore(std::cin.rdbuf()->in_avail()); 

std;;cin.get(); 

#endif 

return; 

} 


int  main  (){ 

Ion  *iontype; 

RDFevaluator  FISC; 

int  i,  Ni,  *N,  IterMax,  GridPoints,  LambdaPartition; 
double  *p; 

char  projectname[70] ,dataname[83],methodname[7]; 
bool  Proceed=true,FilePresent; 

IterMax  =  1 2e4;  GridPoints  =  7e1 ;  LambdaPartition  =  1  e2;  /*number  of  gamma  values, 
usually  1e2*/ 

Ni  =  2; 

N  =  (int*)  calloc  (Ni.sizeof (int)) : 

N [0]  =  0;  /*  specify  the  ion  types  here,  from  the  data  bank  */ 

N [1 ]  =  1 ; 

//N  [2]  =  2; 
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//N  [3]  =  5; 


p  =  (double*)  calloc  (4,  sizeof(double)); 
iontype  =  (Ion*)  calloc  (Ni,  sizeof(lon)); 

SetlonParameters(Ni,N,iontype); 

p [0]  =  pow(2. 0,8.0);  /*  number  of  grid  points  for  the  pair  correlation  functions 

(2/'10  is  pretty  good,  and  almost  identical  to  2/M 1)*/ 
p [  1  ]  =  25.0*0.6;  /*  Maximal  Bjerrum  length  (Gamma  parameter  times  ion 

radius)  in  nm  */ 

p [2]  =  6.0;  /*  cell  width  (minus  diameter)  in  Debye  lengths  (6  works 

well,  with  a  minimum  of  8  nm)*/ 
p  [3]  =  Ni; 

cout  «  "WnThe  particles  are  labeled  as  "; 

for  (i=0;i<Ni— 1  ;i++)  {  cout  «  iontype [i]  .name  «  "s  (type  "  «  i+1  «  "),  ";  }  cout  « 
"and  "«  iontype [i] .name  «  "s  (type  "  «  i+1  «  ").Wn"  «  endl; 


strcpy(projectname,"Data/Session_01  /Session_01 ");  strcpy(methodname,"DHEMSA"); 
strcpy(dataname.projectname);  strcat(dataname, "_RDF.dat"); 
CheckFile(dataname,&FilePresent);  if (FilePresent)  AskQuestion(dataname,&Proceed); 
if(iProceed)  return  0; 

cout  «  "Wn**  Running  "  «  projectname  «  "  **Wn"  «  endl; 

HSC.SetParameters(p,  iontype,  projectname);  HSC.SetMethod(methodname); 

//TestFourierTransformO; 

//TestFourierTransformFFTW3(); 

//HSC.RunAddSaltSeries(GridPoints.lterMax); 
//HSC.RunChangePolymer(GridPoints,Ni-1  JterMax); 


//HSC.Run(lterMax); 

HSC.RunAddSaltSeriesThlnt  (GridPoints,  LambdaPartition,  IterMax); 


//HSC.TestDonnan  Potential  (); 

cout  «  "WnWn  ***  End  of  "  «  projectname  «  "  ***  WnWn"  «  endl; 
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free  (p);  free  (iontype); 
return  0; 
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#include  "system. h" 

System: : System(double  LX,  double  LY,  double  f,  double  kappa,  double  T, 
double  pH,  double  epsilon,  double  pKa_l,  double  pKa_2,  int  seed)  : 
m_f raction(f ) 

{ 

init_rng(seed) ; 

m_lattice  =  new  Lattice( LX, LY) ; 

m_lb  =  110.011739/(T*epsilon) ;  //  110.011739  comes  from  fixing  the 

units  under  the  assumption  that  the  lattice  constant  is  0.5nm 
m_n  =  m_n_plus  =  m_n_minus  =  0; 
m_periodic  =  true; 

m_lattice->set_periodic(m_per iodic) ; 

//m_lb  =  lb; 


m_min_q  =  new  double [2]; 
m_max_q  =  new  double [2]; 

m_kappa  =  kappa; 
m_T  =  T; 
m_pH  =  pH; 

m_epsilon  =  epsilon; 


m_pKa  =  new  double [2]; 
m_pKa[0]  =  pKa_l; 
m_pKa[l]  =  pKa_2; 

m_mu  =  new  double [2]; 

m_mu[0]  =  log(10.0)*(pH  -  pKa_l);  //  -  m_lb*m_kappa;  //  base 

//m_mu[l]  =  -log(10.0)*(pH  -  pKa_2);  //  -  m_lb*m_kappa;  // 

acid 

m_mu[l]  =  log(10.0)*(pH  -  pKa_2);  //  -  m_lb*m_kappa;  //  acid 


> 

System: : System(double  kappa,  double  T,  double  pH,  double  epsilon, 
double  pKa_l,  double  pKa_2,  int  seed)  :  m_f raction(0.0) 

{ 

init_rng(seed) ; 
m_lattice  =  new  Lattice(); 

m_lb  =  110.011739/(T*epsilon) ;  //  110.011739  comes  from  fixing  the 

units  under  the  assumption  that  the  lattice  constant  is  0.5nm 
m_n  =  m_n_plus  =  m_n_minus  =  0; 
m_periodic  =  false; 
m_lattice->set_periodic(m_per iodic) ; 

//m_lb  =  lb; 
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m_min_q  =  new  double [2]; 
m_max_q  =  new  double [2]; 

m_kappa  =  kappa; 
m_T  =  T; 
m_pH  =  pH; 

m_epsilon  =  epsilon; 


m_pKa  =  new  double [2]; 
m_pKa[0]  =  pKa_l; 
m_pKa[l]  =  pKa_2; 

m_mu  =  new  double [2]; 

m_mu[0]  =  log(10.0)*(pH  -  pKa_l);  //  -  m_lb*m_kappa;  //  base 

//m_mu[l]  =  -log(10.0)*(pH  -  pKa_2);  //  -  m_lb*m_kappa;  // 

acid 

m_mu[l]  =  log(10.0)*(pH  -  pKa_2);  //  -  m_lb*m_kappa;  //  acid 

} 


void  System: : initialize_same_charge(double  q) 

{ 

cout  «  "Initializing  single  component  system."  «  endl; 
if  (q  >  0.0) 

{ 

m_min_q[0]  =  0.0;  m_min_q[l]  =  0.0; 
m_max_q[0]  =  q;  m_max_q[l]  =  0.0; 

} 

else 

{ 

m_min_q[0]  =  0.0;  m_min_q[l]  =  q; 
m_max_q[0]  =  0.0;  m_max_q[l]  =  0.0; 

> 

for  (int  i  =  0;  i  <  m_lattice->get_size( ) ;  i++) 

{ 

m_lattice->get_site( i)->q  =  q; 
if  (q  >  0.0) 

m_lattice->get_site( i)->type  =  1; 
else 

m_lattice->get_site( i)->type  =  2; 
m_n++; 

> 

if  (q  >  0.0) 

{ 

m_n_plus  =  m_n; 
m_n_minus  =  0.0; 

> 

else 

{ 
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m_n_minus  =  m_n; 
m_n_plus  =  0.0; 

} 

} 

void  System: : initialize_opposite_charges (double  q_plus,  double 
q_minus) 

{ 

cout  «  "Initializing  a  two  component  system."  «  endl; 
m_min_q[0]  =  0.0;  m_min_q[l]  =  -fabs(q_minus) ; 
m_max_q[0]  =  fabs(q_plus) ;  m_max_q[l]  =  0.0; 

for  (int  i  =  0;  i  <  m_lattice->get_size( ) ;  i++) 
if  ( ! (m_lattice->get_has_type( ) ) ) 

{ 

if  (drnd()  <  ( 1. 0-m_f raction) ) 

{ 

m_lattice->get_site( i)->q  =  0.0; 
m_lattice->get_site( i)->type  =  1; 
m_n++; 
m_n_plus++; 

} 

else 

{ 

m_lattice->get_site( i)->q  =  0.0; 
m_lattice->get_site( i)->type  =  2; 
m_n++; 

m_n_minus++; 

> 

} 

else 

{ 

m_lattice->get_site( i)->q  =  0.0; 
m_n++; 

if  (m_lattice->get_site(i)->type  ==  1) 
m_n_plus++; 
else 

m_n_minus++; 

} 

} 

double  System: : compute_energy ( int  i) 

{ 

return  compute_site_energy ( i)  +  compute_interaction_energy ( i) ; 

} 

double  System: : compute_energy_difference( int  i,  double  dq) 

{ 

return  compute_site_energy_difference( i, dq)  + 
compute_interaction_energy_difference( i, dq) ; 
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} 


double  System: : total_energy ( ) 

{ 

double  eng  =  0.0; 

for  (int  i  =  0;  i  <  m_lattice->get_size( ) ;  i++) 

eng  +=  compute_site_energy ( i)  +  0. 5*compute_interaction_energy ( i) ; 
return  eng; 

} 

double  System: : average_charge( ) 

{ 

double  charge  =  0.0; 

for  (int  i  =  0;  i  <  m_lattice->get_size( ) ;  i++) 
charge  +=  m_lattice->get_site( i ) — >q ; 
return  charge/m_lattice->get_size( ) ; 


double  System: : average_charge( int  type) 

{ 

double  charge  =  0.0; 

for  (int  i  =  0;  i  <  m_lattice->get_size( ) ;  i++) 
if  (m_lattice->get_site( i)->type  ==  type) 
charge  +=  m_lattice->get_site( i)->q; 
if  (type  ==  1) 

{ 

if  (m_n_plus  ==  0) 
return  0.0; 
else 

return  charge/m_n_plus; 

> 

else 

{ 

if  (m_n_minus  —  0) 
return  0.0; 
else 

return  charge/m_n_minus; 

} 

//return  charge/m_lattice->get_size( ) ; 

} 

void  System: : charge_distribution (double*  cd) 

{ 

/* 

double  dx  =  m_lattice->get_box( )->Lx/Nx; 
double  dy  =  m_lattice->get_box( )->Ly/Ny; 
double  x_min  =  m_lattice->get_box( )->xlo; 
double  y_min  =  m_lattice->get_box( )->ylo; 

*/ 
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for  (int  i  =  0;  i  <  m_lattice->get_size( ) ;  i++) 

{ 

cd[i]  +=  m_lattice->get_site(i)->q; 

/* 

double  x  =  m_lattice->get_site( i)->x,  y  =  m_lattice->get_site( i) 

>y; 

int  idx_x  =  static_cast<int>( (x  -  x_min)/dx); 
int  idx_y  =  static_cast<int>( (y  -  y_min)/dy) ; 
cd [idx_x] [idx_y]  +=  m_lattice->get_site( i)->q; 

*/ 

> 

} 


void  System: : charge_correlation(double*  gr,  int  site) 

{ 

int  N  =  m_lattice->get_size( ) ; 

double  Lx_half  =  0. 5*m_lattice->get_box( )->Lx,  Ly_half  =  m_lattice 
>get_box( )->Ly; 

for  (int  i  =  0;  i  <  N;  i++) 
gr  [i]  =  0.0; 

double  qi  =  m_lattice->get_site( site)->q; 
for  (int  j  =  0;  j  <  N;  j++) 

{ 

double  qj  =  m_lattice->get_site( j )->q; 

//double  r  =  m_lattice->get_distance( site, j ) ; 

//if  (r  <=  Lx_half  &&  r  <=  Ly_half) 
gr  [j  ]  =  qi*qj ; 

} 

//  for  (int  i  =  0;  i  <  Nbins;  i++) 

//  gr[i]  /=  M_PI*(  ( i+l)*( i+1)  -  i*i)*dr*dr; 

> 

void  System: : charge_correlation_type(double*  gr,  int  Nbins,  int 
type_l,  int  type_2) 

{ 

int  N  =  m_lattice->get_size( ) ; 

double  dr  =  0. 5*m_lattice->get_box( )->Lx/static_cast<double>(Nbins 
double  Lx_half  =  0. 5*m_lattice->get_box( )->Lx,  Ly_half  =  m_lattice 
>get_box( )->Ly; 
int  NN  =  0; 

for  (int  i  =  0;  i  <  Nbins;  i++) 
gr [i]  =  0.0; 

for  (int  i  =  0;  i  <  N;  i++) 

{ 

if  (m_lattice->get_site( i)->type  ==  type_l) 

{ 

double  qi  =  m_lattice->get_site( i)->q; 
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NN++; 

for  (int  j  =  0;  j  <  N;  j++) 

{ 

if  (m_lattice->get_site( j )->type  ==  type_2) 

{ 

double  qj  =  m_lattice->get_site( j )->q; 
double  r  =  m_lattice->get_distance( i,  j ) ; 
if  ( r  <=  Lx_half  &&  r  <=  Ly_half) 

{ 

int  bin  =  static_cast<int>( r/dr) ; 
gr [bin]  +=  qi*qj ; 

} 

} 

} 

> 

> 

for  (int  i  =  0;  i  <  Nbins;  i++) 

{ 

gr[i]  /=  static_cast<double>(NN) ; 
gr[i]  /=  M_PI*( ( i+l)*( i+1)  -  i*i)*dr*dr; 

>  ' 

} 

void  System: : print_charges ( string  name,  int  Nx,  int  Ny) 

{ 

double  ch [Nx] [Ny] ; 
for  (int  i  =  0;  i  <  Nx;  i++) 
for  (int  j  =  0;  j  <  Ny;  j++) 
ch  [i]  [j  ]  =  0.0; 

double  dx  =  m_lattice->get_box( )->Lx/Nx; 
double  dy  =  m_lattice->get_box( )->Ly/Ny; 
double  x_min  =  m_lattice->get_box( )->xlo; 
double  y_min  =  m_lattice->get_box( )->ylo; 

for  (int  i  =  0;  i  <  m_lattice->get_size( ) ;  i++) 

{ 

double  x  =  m_lattice->get_site( i)->x,  y  =  m_lattice->get_site( i)- 

>y; 

int  idx_x  =  static_cast<int>( (x  -  x_min)/dx); 
int  idx_y  =  static_cast<int>( (y  -  y_min)/dy); 
ch [idx_x] [idx_y]  +=  m_lattice->get_site( i)->q; 

} 

ofstream  out(name. c_str( ) ) ; 

for  (int  i  =  0;  i  <  Nx;  i++) 

{ 

for  (int  j  =  0;  j  <  Ny;  j++) 

out  «  i  «  "  "  «  j  «  "  "  «  ch[i] [j]  «  endl; 
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out  «  endl; 


> 

out. close( ) ; 

> 

void  System: : print_energies ( string  name,  int  Nx,  int  Ny) 

{ 

double  eng [Nx] [Ny] ; 
int  count [Nx] [Ny] ; 
for  (int  i  =  0;  i  <  Nx;  i++) 
for  (int  j  =  0;  j  <  Ny;  j++) 

{ 

eng [i]  [j ]  =0.0; 
count  [i] [ j ]  =0; 

} 

double  dx  =  m_lattice->get_box( )->Lx/Nx; 
double  dy  =  m_lattice->get_box( )->Ly/Ny; 
double  x_min  =  m_lattice->get_box( )->xlo; 
double  y_min  =  m_lattice->get_box( )->ylo; 

for  (int  i  =  0;  i  <  m_lattice->get_size( ) ;  i++) 

{ 

double  x  =  m_lattice->get_site( i)->x,  y  =  m_lattice->get_site( i)- 

>y; 

int  idx_x  =  static_cast<int>( (x  -  x_min)/dx); 
int  idx_y  =  static_cast<int>( (y  -  y_min)/dy); 
eng [idx_x] [idx_y]  +=  compute_energy ( i) ; 
count [idx_x] [idx_y]++; 

} 

ofstream  out(name. c_str( ) ) ; 

for  (int  i  =  0;  i  <  Nx;  i++) 

{ 

for  (int  j  =  0;  j  <  Ny;  j++) 
if  (count [i] [j ]  !=  0) 

out  «  i  «  11  11  «  j  «  "  11  «  eng  [i]  [j  ] /count  [i]  [j  ]  «  endl; 
else 

out  «  i  «  11  "  «  j  «  11  11  «  0.0  «  endl; 
out  «  endl; 

} 

out. close( ) ; 

} 

//  private 

double  System: : compute_site_energy( int  i) 
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{ 

Site*  si  =  m_lattice->get_site ( i) ; 

//double  factor  =  1.9046256137279145;  //  sqrt(pi)/ 

sqrt(0.5*sqrt(3.0) ) ; 

//double  self_energy  =  ( 1. 2-m_kappa)*m_lb*( si->q)*( si->q) ; 
double  self_energy  =  -m_kappa*m_lb*( si->q)*( si->q) ; 

//double  self_energy  =  ( f actor-0. 5*m_kappa )*m_lb*( si->q )*( si->q ) ; 
//return  m_mu [si->type-l] *fabs ( si->q)  +  self_energy; 
return  m_mu [si->type-l] *si->q  +  self_energy; 

//return  m_mu [si->type-l]*si->q; 


double  System: : compute_interaction_energy ( int  i) 

{ 

Site*  si  =  m_lattice->get_site ( i) ; 

Neighbors*  neigh  =  m_lattice->get_neighbors ( i) ; 
double  q  =  si->q; 
double  eng  =  0.0; 

for  (int  j  =  0;  j  <  neigh->n_neighbors ;  j++) 

{ 

double  dist  =  neigh->neighbors  [j ]. distance; 
eng  +=  q*(neigh->neighbors [j ] . site->q)*(neigh- 
>neighbors [ j ] . energy_factor  -  m_lattice->get_eng_correction ( ) ) ; 

//eng  +=  m_lb*q*( neigh->neighbors [j ] . site->q)*exp(-m_kappa/dist)/ 
dist; 

> 

return  eng; 

} 

double  System: : compute_site_energy_difference( int  i,  double  dq) 

{ 

Site*  si  =  m_lattice->get_site ( i) ; 

//double  factor  =  1.9046256137279145;  //  sqrt(pi)/ 

sqrt(0.5*sqrt(3.0) ) ; 

//double  self_energy  =  (1.2-m_kappa)*m_lb*dq*(2.0*si->q+dq) ; 
double  self_energy  =  -m_kappa*m_lb*dq*(2.0*si->q+dq) ; 

//double  self_energy  =  (factor-0. 5*m_kappa)*m_lb*(si->q)*(si->q) ; 
return  m_mu [si->type-l] *dq  +  self_energy; 

//return  m_mu [si->type-l]*si->q; 


double  System: : compute_interaction_energy_difference( int  i,  double  dq) 

{ 

Site*  si  =  m_lattice->get_site ( i) ; 

Neighbors*  neigh  =  m_lattice->get_neighbors ( i) ; 
double  eng_diff  =  0.0; 

for  (int  j  =  0;  j  <  neigh->n_neighbors ;  j++) 
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{ 

double  dist  =  neigh->neighbors  [j ]. distance; 
eng_diff  +=  dq*(neigh->neighbors[j].site->q)*(neigh- 
>neighbors [ j ] . energy_factor  -  m_lattice->get_eng_correction ( ) ) ; 

//eng  +=  m_lb*q*( neigh->neighbors [j ] . site->q)*exp(-m_kappa/dist)/ 
dist; 

} 

return  eng_diff; 

} 
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#if ndef  _SITE_H_ 

#def ine  _SITE_H_ 

struct  Site 

{ 

Site(int  ID,  double  X,  double  Y,  double  Z,  int  TYPE,  double  Q) 
id ( ID) ,  x(X) ,  y(Y) ,  z(Z),  type(TYPE),  q(Q)  {  > 
int  id; 

double  x,  y,  z; 
int  type; 
double  q; 

}; 

#endif 
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#include  "rng.h" 
#ifdef  MKL  LIBRARY 


const  int  METHOD  =  0;  //!<  Method  to  be  used 

const  int  BRNG  =  VSL_BRNG_MCG31;  //!<  Type  defined  in  the  MKL 

documentation 

const  int  RNDBUFLEN  =  8192;  //!<  Buffer  length  for  the  random  number 

sequence 


double  rndarray [RNDBUFLEN] ; 
VSLStreamStatePtr  stream; 
int  rndcnt; 


//!<  Contains  random  numbers 
//!<  Used  internally  by  MKL 
//!<  Counter 


//!  Initialize  RNG  (MKL) 

//!  \param  seed  initial  seed  for  the  random  number  generator 
void  init_rng(int  seed) 

{ 

int  errcode; 

errcode  =  vslNewStream(  ^stream,  BRNG,  seed  ); 
rndcnt  =  0; 

> 

//!  Get  a  random  number  between  0  and  1  drawn  from  an  uniform 
distribution 

//!  \return  random  number  between  0  and  1 
double  drnd( ) 

{ 

double  a  =  0.0; 
double  b  =  1.0; 

return  (! rndcnt —  ?  ( vdRngUnif orm(  METHOD,  stream,  RNDBUFLEN, 
rndarray,  a,  b),  rndcnt=RNDBUFLEN-l,  rndarray [rndcnt] )  : 
rndarray [ rndcnt] ) ; 

} 

//!  Get  an  integer  random  number  between  0  and  N  drawn  from  an  uniform 
distribution 

//!  \param  N  upper  bound  for  the  interval 

//!  \return  integer  random  number  between  0  and  N 

int  lrnd(int  N) 

{ 

return  static_cast<int>(N*drnd ( ) ) ; 

} 

//!  Free  data  structures  used  for  the  random  number  generator 
//!  In  case  of  MKL  library  this  is  just  a  dummy  function 
//!  as  there  is  no  need  to  free  anything 
void  free_rng() 

{ 
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} 

#else  //  If  MKL  is  not  present  fall  back  onto  the  GSL 

const  gsl_rng_type*  GSL_RANDOM_TYPE;  //!<  Pointer  to  the  gsl_rng_type 
structure  which  handles  the  RNG  type 

gsl_rng*  GSL_RANDOM_GENERATOR;  //!<  Pointer  which  holds  the 

actual  random  number  generator 


//!  Initialize  RNG  (GSL) 

//!  \param  seed  initial  seed  for  the  random  number  generator 
void  init_rng(int  seed) 

{ 

gsl_rng_env_setup( ) ; 

G  S  L_RAN  D  0M_TY  P  E  =  gsl_rng_def ault ; 

G  S  L_RAN  D  0M_G  EN  E  RAT  0  R  =  gsl_rng_alloc (GSL_RANDOM_TYPE) ; 
gsl_rng_set (GSL_RANDOM_GENERATOR,  static_cast<unsigned  long 
int>( seed) ) ; 

} 

//!  Get  a  random  number  between  0  and  1  drawn  from  an  uniform 
distribution 

//!  \return  random  number  between  0  and  1 
double  drnd( ) 

{ 

return  gsl_rng_uniform(GSL_RANDOM_GENERATOR) ; 

} 

//!  Get  an  integer  random  number  between  0  and  N  drawn  from  an  uniform 
distribution 

//!  \param  N  upper  bound  for  the  interval 

//!  \return  integer  random  number  between  0  and  N 

int  lrnd(int  N) 

{ 

return  static_cast<int>(N*drnd ( ) ) ; 

} 

//!  Free  data  structures  used  for  the  random  number  generator 
//!  In  case  of  GLS  library  we  need  to  free  some  memory 
void  free_rng() 

{ 

gsl_rng_f ree(GSL_RANDOM_GENERATOR) ; 

} 


#endif 
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#if ndef  NEIGHBOR_H 

#def ine  NEIGHBOR_H 

#include  <list> 

using  namespace  std; 

struct  Neighbor 

{ 

Neighbor(Site*  s,  double  dist,  double  eng_fact)  {  site  = 
=  dist;  energy_factor  =  eng_fact;  } 

Site*  site; 
double  distance; 
double  energy_factor; 

}; 


struct  Neighbors 

{ 

Neighbors ( int  id)  :  idx(id)  {  } 
int  idx; 

int  n_neighbors; 
vector<Neighbor>  neighbors; 

}; 


#endif 


s;  distance 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


#include  "parse_input. h" 

//  Set  of  auxilliary  functions  that  help  parse  lines  of  the  input  file 
and 

//  reduce  code  bloating  in  the  Parselnput: : read_data( )  function. 

//  These  are  defined  as  statice. 

//  Reminder:  Static  non-memeber  function  are  not  visible  outside  the 
//  cpp  file  in  which  they  are  defined.  No  link  object  is  created  in 
the  .0  file 

//!  Splits  a  string  at  one  of  the  characters  "  ",  "\t",  or 

//!  \param  str  string  to  split 

//!  \return  vector  of  split  parts 

static  vector<string>  split_line ( const  string&  str) 

{ 

vector<string>  split_string; 

split_regex( split_string,  str,  regex("\\s+| , | \\t" ) ) ; 
return  split_string; 

> 

//  Here  comes  the  implementation  of  class  members 

/*!  Constructor  extracts  the  Membrane  object  from  the  System  object, 
sets  the  file  name  and  opens  appropriate  file.  At  this  stage  no 
reading  of  the  data  is  done. 

Constructor  also  sets  the  list  of  known  keywords.  Those  are: 
"vertices",  "edges",  "triangles" 

\param  sys  Pointer  to  the  System  object 
\param  file_name  Name  of  the  input  file 
\throw  runtime_error 

*/ 

Parselnput: : ParseInput(System*  sys,  const  string^  file_name)  : 
m_system( sys ) ,  m_file_name(file_name) 

{ 

m_lattice  =  sys->get_lattice( ) ; 
m_lattice->set_has_type(true) ; 
m_in.open(m_file_name.c_str( ) ) ; 
if  ( !m_in. is_open( ) ) 

{ 

cerr  «  "Error  opening  input  file  :  "  «  m_file_name  «  endl; 
throw  runtime_error ( "Could  not  open  input  file."); 

> 

m_keywords . push_back( "vertices" ) ; 
m_keywords . push_back( "edges" ) ; 
m_keywords . push_back( "triangles" ) ; 

m_current_keyword  =  "";  //  No  keywords  are  read  yet. 

m_current_vertex_type  =  1;  //  Start  with  the  vertex  type  1 
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m_current_triangle_type  =  1;  //  Start  with  triangle  type  1 
m_current_line  =  1;  //  Set  the  line  counter  to  the  first  line 

} 

/*!  Does  actual  data  reading  and  membrane  building 
\throw  runtime_error 

*/ 

void  Parselnput: : read_data( ) 

{ 

Parselnput: : LINE_TYPE  line_type; 

//  We  assume  that  the  system  is  a  vesicle 

cout  «  "\t\tReading  input  file  :  "  «  m_file_name  «  endl; 
while  (  getline(m_in,  m_line)  ) 

{ 

line_type  =  parse_line( ) ; 
if  (line_type  ==  Parselnput: :KEYW0RD) 

cout  «  "\t\t  Reading  11  «  m_current_keyword  «  endl; 
if  (line_type  ==  Parselnput: :DATA) 

{ 

if  (m_current_keyword  ==  "vertices") 
this->parse_vertex( ) ; 
else  if  (m_current_keyword  ==  "edges") 
this->parse_edge( ) ; 
else 

this->parse_triangle( ) ; 

> 

if  (line_type  ==  Parselnput: : ERROR) 

{ 

cerr  «  "Error  at  line  "  «  m_current_line  «  "  while  parsing 
input  file  "  «  m_file_name  «  "."  «  endl; 

throw  runtime_error( "Error  parsing  input  file."); 

} 

m_current_line++; 

> 

cout  «  "\t\t\tRead  "  «  m_current_line  «  "  lines."  «  endl; 


} 


//  Private  method  are  implemented  in  here 

/*!  A  line  is  passed  as  a  string.  It  is  processed  and  the  type  of  the 
line  is  returned 

\return  one  of  the  four  possible  line  types 

*/ 

Parselnput : : LINE_TYPE  Parselnput : : parse_line( ) 

{ 

vector<string>  s_line; 
vector<string>: : iterator  it_s; 

//  first  remove  all  leading  and  trailing  spaces 
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trim(m_line) ; 
if  (m_line. size( )  ==  0) 
return  Parselnput: : EMPTY; 

//  transform  it  to  a  lower  case 
to_lowe  r ( m_line ) ; 

if  (m_line[0]  ==  '#')  //  Check  if  comment 

return  Parselnput: :C0MMENT; 

else  if  (isalpha(m_line[0] ) )  //  this  might  be  a  keyword 

{ 

s_line  =  split_line(m_line) ; 

if  ( s_line. size( )  !=  1  &&  s_line[l][0]  !=  '#')  //  more  than 

one  word  in  the  line  and  the  second  word  in  not  begining  of  a  comment 
— >  error 

return  Parselnput: : ERROR; 

it_s  =  std :: find (m_keywords . begin () ,  m_keywords . end ( ) , 
s_line[0]);  //  check  if  the  word  is  in  the  list  of  keywords 

if  (it_s  ==  m_keywords . end ( ) )  //  if  not  — >  error 

return  Parselnput: : ERROR; 
else 
{ 

m_current_keyword  =  s_line[0]; 
return  Parselnput: :KEYW0RD; 

> 

> 

else  if  (isdigit(m_line[0] )  ||  m_line[0]  ==  '  +  '  ||  m_line[0]  == 

||  m_line[0]  =='.')  //  check  if  it  is  a  number 

return  Parselnput: :DATA; 
else 

return  Parselnput: : ERROR; 


/*!  Processes  line  that  contains  vertex  data 

vertex  data  line  can  have  either  four  or  five  entries,  id,  x,  y, 
z,  and  optional  type. 

If  type  is  missing,  m_current_vertex_type  is  used. 

\throw  runtime_error 

*/ 

void  Parselnput: : parse_vertex( ) 

{ 

Box*  box  =  m_system->get_box( ) ; 
int  v_type  =  m_current_vertex_type; 
int  id; 

double  x,  y,  z; 

vector<string>  s_line  =  split_line(m_line) ; 

if  ( s_line. size( )  >=  4)  //  There  are  four  or  more  entries  in  the 

line 

{ 

try 
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{ 

id  =  lexical_cast<int>( s_line [0] ) ;  //  first  entry  in  the  id 

} 

catch  (bad_lexical_cast  &) 

{ 

cerr  «  "Bad  vertex  id  at  line  11  «  m_current_line  «  11  of  input 
file  "  «  m_file_name  «  endl; 

cerr  «  "  Input  line  :  "  «  m_line  «  endl; 
throw  runtime_error ( "Bad  vertex  id."); 

} 

try 

{ 

x  =  lexical_cast<double>( s_line [1] ) ;  //  x  coordinate 

y  =  lexical_cast<double>( s_line [2] ) ;  //  y  coordinate 

z  =  lexical_cast<double>( s_line [3] ) ;  //  z  coordinate 

> 

catch  (bad_lexical_cast  &) 

{ 

cerr  «  "Bad  vertex  coordinate  at  line  "  «  m_current_line  «  " 
of  input  file  "  «  m_f ile_name  «  endl; 

cerr  «  "  Input  line  :  "  «  m_line  «  endl; 
throw  runtime_error ( "Bad  vertex  coordinate."); 

> 

if  ( s_line. size( )  >  4  &&  s_line[4][0]  !=  '#')  //  seems  that  we 

have  type  after  all 

{ 

try 

{ 

v_type  =  lexical_cast<int>( s_line [4] ) ;  //  read  the  vertex 

type 

if  (find(m_v_types. begin ( ) ,  m_v_types . end ( ) ,  v_type)  == 
m_v_types.end( ) ) 

m_v_types. push_back( v_type) ; 

} 

catch  (bad_lexical_cast  &) 

{ 

cerr  «  "Bad  vertex  type  at  line  "  «  m_current_line  «  "  of 
input  file  "  «  m_file_name  «  endl; 

cerr  «  "  Input  line  :  "  «  m_line  «  endl; 
throw  runtime_error ( "Bad  vertex  type."); 

} 

> 

> 

else  //  line  is  too  short 

{ 

cerr  «  "Parse  error  in  "  «  m_file_name  «  "  at  line  :  "  « 
m_current_line  «  endl; 

cerr  «  "  Input  line  :  "  «  m_line  «  endl; 
cerr  «  "  Vertex  data  line  too  short!"  «  endl; 
throw  runtime_error( "Input  file  parse  error."); 
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} 


m_current_vertex_type  =  v_type; 

//  If  we  have  reached  up  to  here  we  heve  sucessfully  parsed  the 
vertex  line 

//  We  can  now  generate  a  vertex 
if  (m_system->get_periodic( ) ) 

if  (x  <  box->xlo  | |  x  >  box->xhi  | |  y  <  box->ylo  | |  y  >  box->yhi 
| |  z  <  box->zlo  | |  z  >  box->zhi) 

{ 

cerr  «  "Error  reading  vertex  coordinates.  11  «  endl; 
cerr  «  11  Simulation  box  too  small.  11  «  endl; 
throw  runtime_error( "Simulation  box  too  small."); 

} 

m_lattice->add_site(new  Site(id,  x,  y,  z,  v_type,  0.0)); 

> 

/*!  Parsing  line  that  contains  edge  data.  Edge  data  line  always  has 
four  entries: 

edge_id  id_of_vertex_l  id_of_vertex_2  edge_type 

*/ 

void  Parselnput: : parse_edge( ) 

{ 

} 

/*!  Parse  line  that  contains  the  triangle  data.  Each  triangle  line  has 
to  have  five  or  six 

entries  followed  by  an  optional  commnet.  Entries  are: 
triangle_id  id_vertex_l  id_vertex_2  id_vertex_3  orientation  [type] 

*/ 

void  Parselnput: : parse_triangle( ) 

{ 

> 
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#include  "parse_input. h" 

//  Set  of  auxilliary  functions  that  help  parse  lines  of  the  input  file 
and 

//  reduce  code  bloating  in  the  Parselnput: : read_data( )  function. 

//  These  are  defined  as  statice. 

//  Reminder:  Static  non-memeber  function  are  not  visible  outside  the 
//  cpp  file  in  which  they  are  defined.  No  link  object  is  created  in 
the  .0  file 

//!  Splits  a  string  at  one  of  the  characters  "  ",  "\t",  or 

//!  \param  str  string  to  split 

//!  \return  vector  of  split  parts 

static  vector<string>  split_line ( const  string&  str) 

{ 

vector<string>  split_string; 

split_regex( split_string,  str,  regex("\\s+| , | \\t" ) ) ; 
return  split_string; 

> 

//  Here  comes  the  implementation  of  class  members 

/*!  Constructor  extracts  the  Membrane  object  from  the  System  object, 
sets  the  file  name  and  opens  appropriate  file.  At  this  stage  no 
reading  of  the  data  is  done. 

Constructor  also  sets  the  list  of  known  keywords.  Those  are: 
"vertices",  "edges",  "triangles" 

\param  sys  Pointer  to  the  System  object 
\param  file_name  Name  of  the  input  file 
\throw  runtime_error 

*/ 

Parselnput: : ParseInput(System*  sys,  const  string^  file_name)  : 
m_system( sys ) ,  m_file_name(file_name) 

{ 

m_lattice  =  sys->get_lattice( ) ; 
m_lattice->set_has_type(true) ; 
m_in.open(m_file_name.c_str( ) ) ; 
if  ( !m_in. is_open( ) ) 

{ 

cerr  «  "Error  opening  input  file  :  "  «  m_file_name  «  endl; 
throw  runtime_error ( "Could  not  open  input  file."); 

> 

m_keywords . push_back( "vertices" ) ; 
m_keywords . push_back( "edges" ) ; 
m_keywords . push_back( "triangles" ) ; 

m_current_keyword  =  "";  //  No  keywords  are  read  yet. 

m_current_vertex_type  =  1;  //  Start  with  the  vertex  type  1 
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m_current_triangle_type  =  1;  //  Start  with  triangle  type  1 
m_current_line  =  1;  //  Set  the  line  counter  to  the  first  line 

} 

/*!  Does  actual  data  reading  and  membrane  building 
\throw  runtime_error 

*/ 

void  Parselnput: : read_data( ) 

{ 

Parselnput: : LINE_TYPE  line_type; 

//  We  assume  that  the  system  is  a  vesicle 

cout  «  "\t\tReading  input  file  :  "  «  m_file_name  «  endl; 
while  (  getline(m_in,  m_line)  ) 

{ 

line_type  =  parse_line( ) ; 
if  (line_type  ==  Parselnput: :KEYW0RD) 

cout  «  "\t\t  Reading  11  «  m_current_keyword  «  endl; 
if  (line_type  ==  Parselnput: :DATA) 

{ 

if  (m_current_keyword  ==  "vertices") 
this->parse_vertex( ) ; 
else  if  (m_current_keyword  ==  "edges") 
this->parse_edge( ) ; 
else 

this->parse_triangle( ) ; 

> 

if  (line_type  ==  Parselnput: : ERROR) 

{ 

cerr  «  "Error  at  line  "  «  m_current_line  «  "  while  parsing 
input  file  "  «  m_file_name  «  "."  «  endl; 

throw  runtime_error( "Error  parsing  input  file."); 

} 

m_current_line++; 

> 

cout  «  "\t\t\tRead  "  «  m_current_line  «  "  lines."  «  endl; 


} 


//  Private  method  are  implemented  in  here 

/*!  A  line  is  passed  as  a  string.  It  is  processed  and  the  type  of  the 
line  is  returned 

\return  one  of  the  four  possible  line  types 

*/ 

Parselnput : : LINE_TYPE  Parselnput : : parse_line( ) 

{ 

vector<string>  s_line; 
vector<string>: : iterator  it_s; 

//  first  remove  all  leading  and  trailing  spaces 
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trim(m_line) ; 
if  (m_line. size( )  ==  0) 
return  Parselnput: : EMPTY; 

//  transform  it  to  a  lower  case 
to_lowe  r ( m_line ) ; 

if  (m_line[0]  ==  '#')  //  Check  if  comment 

return  Parselnput: :C0MMENT; 

else  if  (isalpha(m_line[0] ) )  //  this  might  be  a  keyword 

{ 

s_line  =  split_line(m_line) ; 

if  ( s_line. size( )  !=  1  &&  s_line[l][0]  !=  '#')  //  more  than 

one  word  in  the  line  and  the  second  word  in  not  begining  of  a  comment 
— >  error 

return  Parselnput: : ERROR; 

it_s  =  std :: find (m_keywords . begin () ,  m_keywords . end ( ) , 
s_line[0]);  //  check  if  the  word  is  in  the  list  of  keywords 

if  (it_s  ==  m_keywords . end ( ) )  //  if  not  — >  error 

return  Parselnput: : ERROR; 
else 
{ 

m_current_keyword  =  s_line[0]; 
return  Parselnput: :KEYW0RD; 

> 

> 

else  if  (isdigit(m_line[0] )  ||  m_line[0]  ==  '  +  '  ||  m_line[0]  == 

||  m_line[0]  =='.')  //  check  if  it  is  a  number 

return  Parselnput: :DATA; 
else 

return  Parselnput: : ERROR; 


/*!  Processes  line  that  contains  vertex  data 

vertex  data  line  can  have  either  four  or  five  entries,  id,  x,  y, 
z,  and  optional  type. 

If  type  is  missing,  m_current_vertex_type  is  used. 

\throw  runtime_error 

*/ 

void  Parselnput: : parse_vertex( ) 

{ 

Box*  box  =  m_system->get_box( ) ; 
int  v_type  =  m_current_vertex_type; 
int  id; 

double  x,  y,  z; 

vector<string>  s_line  =  split_line(m_line) ; 

if  ( s_line. size( )  >=  4)  //  There  are  four  or  more  entries  in  the 

line 

{ 

try 
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{ 

id  =  lexical_cast<int>( s_line [0] ) ;  //  first  entry  in  the  id 

} 

catch  (bad_lexical_cast  &) 

{ 

cerr  «  "Bad  vertex  id  at  line  11  «  m_current_line  «  11  of  input 
file  "  «  m_file_name  «  endl; 

cerr  «  "  Input  line  :  "  «  m_line  «  endl; 
throw  runtime_error ( "Bad  vertex  id."); 

} 

try 

{ 

x  =  lexical_cast<double>( s_line [1] ) ;  //  x  coordinate 

y  =  lexical_cast<double>( s_line [2] ) ;  //  y  coordinate 

z  =  lexical_cast<double>( s_line [3] ) ;  //  z  coordinate 

> 

catch  (bad_lexical_cast  &) 

{ 

cerr  «  "Bad  vertex  coordinate  at  line  "  «  m_current_line  «  " 
of  input  file  "  «  m_f ile_name  «  endl; 

cerr  «  "  Input  line  :  "  «  m_line  «  endl; 
throw  runtime_error ( "Bad  vertex  coordinate."); 

> 

if  ( s_line. size( )  >  4  &&  s_line[4][0]  !=  '#')  //  seems  that  we 

have  type  after  all 

{ 

try 

{ 

v_type  =  lexical_cast<int>( s_line [4] ) ;  //  read  the  vertex 

type 

if  (find(m_v_types. begin ( ) ,  m_v_types . end ( ) ,  v_type)  == 
m_v_types.end( ) ) 

m_v_types. push_back( v_type) ; 

} 

catch  (bad_lexical_cast  &) 

{ 

cerr  «  "Bad  vertex  type  at  line  "  «  m_current_line  «  "  of 
input  file  "  «  m_file_name  «  endl; 

cerr  «  "  Input  line  :  "  «  m_line  «  endl; 
throw  runtime_error ( "Bad  vertex  type."); 

} 

> 

> 

else  //  line  is  too  short 

{ 

cerr  «  "Parse  error  in  "  «  m_file_name  «  "  at  line  :  "  « 
m_current_line  «  endl; 

cerr  «  "  Input  line  :  "  «  m_line  «  endl; 
cerr  «  "  Vertex  data  line  too  short!"  «  endl; 
throw  runtime_error( "Input  file  parse  error."); 
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} 


m_current_vertex_type  =  v_type; 

//  If  we  have  reached  up  to  here  we  heve  sucessfully  parsed  the 
vertex  line 

//  We  can  now  generate  a  vertex 
if  (m_system->get_periodic( ) ) 

if  (x  <  box->xlo  | |  x  >  box->xhi  | |  y  <  box->ylo  | |  y  >  box->yhi 
| |  z  <  box->zlo  | |  z  >  box->zhi) 

{ 

cerr  «  "Error  reading  vertex  coordinates.  11  «  endl; 
cerr  «  11  Simulation  box  too  small.  11  «  endl; 
throw  runtime_error( "Simulation  box  too  small."); 

} 

m_lattice->add_site(new  Site(id,  x,  y,  z,  v_type,  0.0)); 

> 

/*!  Parsing  line  that  contains  edge  data.  Edge  data  line  always  has 
four  entries: 

edge_id  id_of_vertex_l  id_of_vertex_2  edge_type 

*/ 

void  Parselnput: : parse_edge( ) 

{ 

} 

/*!  Parse  line  that  contains  the  triangle  data.  Each  triangle  line  has 
to  have  five  or  six 

entries  followed  by  an  optional  commnet.  Entries  are: 
triangle_id  id_vertex_l  id_vertex_2  id_vertex_3  orientation  [type] 

*/ 

void  Parselnput: : parse_triangle( ) 

{ 

> 
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#include  "mc_step.h 


void  MCStep: : sweep ( int  swap_freq) 

{ 

int  charge_accept  =  0; 
int  swap_accept  =  0; 

int  N  =  m_system->get_lattice( )->get_size( ) ; 

for  (int  step  =  0;  step  <  N;  step++) 

{ 

int  idx  =  lrnd(N) ; 
if  (this->charge_step( idx) ) 
charge_accept++; 

} 

if  (swap_freq  >  0) 

{ 

if  (m_current_sweep  %  swap_freq  ==  0) 

{ 

for  (int  step  =  0;  step  <  N;  step++) 

{ 

int  i  =  lrnd(N),  j  =  lrnd(N); 
if  (this->swap_step( i, j ) ) 
swap_accept++; 

} 

} 

} 

m_charge_accept  =  static_cast<double>( charge_accept)/N; 
m_swap_accept  =  static_cast<double>( swap_accept)/N; 

m_current_sweep++; 


> 

//  Private  methods 

bool  MCStep: : charge_step( int  i) 

{ 


Site*  s  =  m_system->get_site( i) ; 
double  q_old  =  s->q; 

double  del_q  =  static_cast<double>(2*lrnd(2)-l) ; 
double  q_new  =  q_old  +  del_q; 

if  (q_new  >  m_system->get_max_q ( s->type)  | |  q_new  <  m_system- 
>get_min_q ( s->type ) ) 
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return  false; 


double  Eold  =  m_system->compute_energy ( i) ; 
s->q  =  q_new; 

double  Enew  =  m_system->compute_energy ( i) ; 

double  delE  =  Enew  -  Eold; 

if  (delE  <  0.0) 
return  true; 

else  if  (drnd()  <  exp(-delE)) 
return  true; 

s->q  =  q_old; 

return  false; 

/* 

Site*  s  =  m_system->get_site( i) ; 

double  del_q  =  static_cast<double>(2*lrnd(2)-l) ; 

double  q_new  =  s->q  +  del_q; 

if  (q_new  >  m_system->get_max_q ( s->type)  | |  q_new  <  m_system- 
>get_min_q ( s->type ) ) 
return  false; 


double  delE  =  m_system->compute_energy_difference( i, del_q) ; 

if  (delE  <  0.0) 

{ 

s->q  =  q_new; 
return  true; 

} 

else  if  (drnd()  <  exp(-delE)) 

{ 

s->q  =  q_new; 
return  true; 

> 

return  false; 

*/ 

} 

bool  MCStep: : swap_step( int  i,  int  j) 
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{ 

if  (i  ==  j)  return  false; 

Site*  si  =  m_system->get_site( i) ; 

Site*  sj  =  m_system->get_site( j ) ; 

if  (si->type  ==  sj->type)  return  false; 

double  Eold  =  m_system->compute_energy ( i)  + 
>compute_energy( j ) ; 

m_system->get_lattice( )->swap_sites ( i, j ) ; 

double  Enew  =  m_system->compute_energy ( i)  + 
>compute_energy( j ) ; 

double  delE  =  Enew  -  Eold; 

/*  Metropolis 
if  (delE  <  0.0) 
return  true; 

else  if  (drnd()  <  exp(-delE/m_T) ) 
return  true; 

*/ 

/*  Kawasaki  */ 

if  (drnd()  <  1.0/(1.0+exp(delE) ) ) 
return  true; 

m_system->get_lattice( )->swap_sites ( i, j ) ; 
return  false; 


} 


m_system 


m_system 
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#include  "parse_input. h" 

#include  "mc_step.h" 

#include  <boost/format . hpp> 

#include  <boost/program_options. hpp> 
#in elude  <boost/ lexica l_cast . hpp> 

#include  <ctime> 

#include  <fstream> 

using  boost: : format; 

using  namespace  boost: : program_options; 
using  boost: : lexical_cast; 

using  namespace  std; 


int  main(int  arge,  char*  argv[]) 

{ 

double  L; 

int  Nsteps; 

double  frac; 

double  T; 

double  pH  =  4.0; 

double  epsilon; 

double  lb; 

double  pKa_l; 

double  pKa_2; 

double  inv_kappa; 

int  seed; 

int  swap_freq; 

int  print_freq; 

string  out_f ilename; 

string  in_f ilename  =  1,11 ; 

int  Neqil; 

vector<double>  q; 

int  measure_every; 

int  Nbin; 

bool  is_acid  =  false; 
double*  gr; 
double*  gr_pp; 
double*  gr_mm; 
double*  gr_pm; 
double*  avr_gr; 
double*  avr_gr_pp; 
double*  avr_gr_mm; 
double*  avr_gr_pm; 

char  time_str [81] ; 

time_t  start_time  =  time(NULL); 
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tm  *tmbuf=localtime(&start_time) ; 

strftime(time_strl  80,  "#  Created  by  pHMC  code  on  %d  %B,  %Y  at  %H: 
%M",  tmbuf); 

options_description  desc("Usage:\nrandom_mesh  <options>" ) ; 

desc.add_options( ) 

("help,h",  "print  usage  message") 

("box-length, L",  value<double>(&L)->default_value(20.0) ,  "box 
length" ) 

( "in-file, i" ,  value<string>(&in_f ilename) ,  "input  file  name 
(Membrane  code  input  file  format)") 

("acid-f rac, f" ,  value<double>(&f rac)->default_value(0. 25) , 
"fraction  of  acid  molecules") 

("charges, q",  value<  vector<double>  >(&q)->multitoken( ) ,  "space 
separated  charges  of  different  components  (NOTE:  ALL  CHARGES  MUST  BE 
GIVEN  AS  POSITIVE  NUMBERS,  second  charge  will  be  treated  as  negative  - 
limitation  of  the  options  parsing  library)") 

("temperature,T" ,  value<double>(&T)->default_value( 1. 0) , 
"temperature" ) 

("pH,p",  value<double>(&pH)->default_value(7.0) ,  "pH") 

("epsilon, e",  value<double>(&epsilon)->default_value(78. 54) , 
"dielectric  constant  of  solvent") 

("pKa_l,l",  value<double>(&pKa_l)->default_value( 10. 5) ,  "pKa  of 

base" ) 

("pKa_2,2",  value<double>(&pKa_2)->default_value(7.4) ,  "pKa  of 

acid" ) 

( "screening-length, 1" ,  value<double>(&inv_kappa)- 
>default_value(2.0) ,  "screening  length  (in  units  of  lattice  spacing)") 
( "out-file, o" ,  value<std: : string>(&out_f ilename)- 
>default_value("out") ,  "output  file  (extension  'out1  will  be  appended 
automatically) " ) 

( "mc-steps ,N" ,  value<int>(&Nsteps )->default_value( 1000) ,  "number 
of  Monte  Carlo  steps") 

( "mc-equil, E" ,  value<int>(&Neqil)->default_value( 100) ,  "number 
of  equilibration  Monte  Carlo  steps") 

("seed,s",  value<int>(&seed)->default_value( 123) ,  "random  number 
generator  seed") 

("print-f req, P",  value<int>(&print_f req)->default_value( 10) , 

"how  often  to  log  results") 

("swap-f req,S",  value<int>(&swap_f req)->default_value( 1) ,  "how 
often  to  perform  swap  move") 

( "measu re-eve ry, m" ,  value<int>(&measure_every)- 
>default_value( 10) ,  "how  often  to  measure  quantities") 

("bins,b",  value<int>(&Nbin)->default_value( 10) ,  "number  of 
histogram  bins  for  pair  correlation  functions") 

("acid, A", "simulate  acid"); 

variables_map  vm; 

store(parse_command_line(argc,  argv,  desc),  vm); 
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notify( vm) ; 

if  (vm.countC'help") ) 

{ 

std::cout  «  desc  «  "\n"; 
return  0; 

} 

if  (vm.countC'acid") ) 
is_acid  =  true; 

lb  =  110.011739/(T*epsilon) ; 

System*  sys; 
if  (in_filename  ==  1111 ) 

{ 

sys  =  new  System(L,  L,  frac,  1. 0/inv_kappa,  T,  pH,  epsilon,  pKa_l, 
pKa_2,  seed) ; 

sys->build_neighbor_list(1.0/inv_kappa,  lb) ; 

> 

else 

{ 

sys  =  new  System( 1. 0/inv_kappa,  T,  pH,  epsilon,  pKa_l,  pKa_2, 
seed) ; 

Parselnput*  parse_input  =  new  Parselnput(sys,  in_f ilename) ; 
parse_input->read_data( ) ; 
sys->build_neighbor_list(1.0/inv_kappa,  lb) ; 

> 

MCStep*  me  =  new  MCStep(sys, seed) ; 

bool  single_component  =  false; 
if  (vm.countC'charges") ) 

{ 

size_t  s  =  vm["charges"] .as<  vector<double>  > ( ) .  size ( ) ; 
if  (s  ==  0) 

{ 

cerr  «  "At  least  one  charge  has  to  be  given."  «  endl; 
return  -1; 

} 

else  if  (s  ==  1) 

{ 

if  (is_acid) 

sys->initialize_same_charge(-q [0] ) ; 
else 

sys->initialize_same_charge(q [0] ) ; 
single_component  =  true; 

> 

else 

sys->initialize_opposite_charges (q [0] , q [1] ) ;  //  first  argument 
is  BASE,  second  argument  is  ACID 
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> 


int  N  =  static_cast<int>( L) ; 

double*  ch_dist; 
double*  avr_site_q; 

ch_dist  =  new  double [sys->get_size( )] ; 
avr_site_q  =  new  double [sys->get_size( )] ; 
for  (int  i  =  0;  i  <  sys->get_size( ) ;  i++) 
ch_dist[i]  =  avr_site_q [i]  =  0.0; 


/* 

for  (int  i  =  0;  i  <  N;  i++) 

{ 


ch_dist[i]  =  new  double [N] ; 
for  (int  j  =  0;  j  <  N;  j++) 
ch_dist [i] [j ]  =  0.0; 

} 

*/ 


gr 

gr_PP 
gr_mm 
gr_pm 
avr_gr 
avr_g r_pp 
avr_g r_mm 
avr_g r_pm 


new  double [sys->get_size( )] ; 

new  double [Nbin] ; 

new  double [Nbin] ; 

new  double [Nbin] ; 

new  double [Nbin] ; 

new  double [Nbin] ; 

new  double [Nbin] ; 

new  double [Nbin] ; 


int  steps_to_average  =  0; 


cout  «  "#  Box  Length  :  "  «  L  «  endl; 

cout  «  "#  Number  of  sites  :  "  «  sys->get_size( )  «  endl; 

if  ( in_f ilename  !=  11,1 ) 

cout  «  "#  Reading  input  from  file  :  "  «  in_filename  «  endl 
cout  «  "#  Fraction  of  acid  sites  :  11  «  frac  «  endl; 
cout  «  "#  Temperature  :  "  «  T  «  endl; 
cout  «  "#  pH  :  11  «  pH  «  endl; 

cout  «  "#  Screening  length  :  "  «  inv_kappa  «  endl; 

cout  «  "#  Dielectric  constant  :  "  «  epsilon  «  endl; 

cout  «  "#  pKa_base  :  11  «  pKa_l  «  endl; 

cout  «  "#  pKa_acid  :  11  «  pKa_2  «  endl; 

cout  «  "#  output  file  name  :  "  «  out_filename  «  endl; 
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cout  «  "#  Number  of  Monte  Carlo  steps  :  "  «  Nsteps  «  endl; 
cout  «  "#  Random  number  generator  seed  :  "  «  seed  «  endl; 
cout  «  "#  Site  swap  frequency  :  11  «  swap_freq  «  endl; 
cout  «  "#  Bjerrum  length  :  "  «  lb  «  "  ("  «  0.5*lb  «  "nm)"  « 
endl; 

cout  «  "#  Charges  :  "  «  endl  «  "\tM; 
for  (int  qlen  =  0;  qlen  <  q.sizeO;  qlen++) 
cout  «  q[qlen]  «  "  "; 
cout  «  endl; 

cout  «  "#  Number  of  histogram  bins  (pair  correlation  fucntion)  :  " 
«  Nbin  «  endl; 

cout  «  "#  Self  energy  :  "  «  lb*(-l. 0/inv_kappa)  «  endl; 
if  ( single_component) 
if  (is_acid) 

cout  «  "#  Simulating  acid  system.  Using  pKa_acid  parameter.  " 

«  endl; 
else 

cout  «  "#  Simulating  base  system.  Using  pKa_base  parameter.  11 
«  endl; 

cout  «  "#"  «  endl; 
cout  «  time_str  «  endl; 
cout  «  "#  11  «  endl; 

cout  «  "#  step  total_energy  average_charge  average_charge_base 
average_charge_acid  charge_change_acceptance_rate 
site_swap_acceptance_rate"  «  endl  «  endl; 

double  avr_charge  =  0.0; 
double  avr_charge_sq  =  0.0; 

double  avr_q_plus  =  0.0,  avr_q_plus_sq  =  0.0,  avr_q_minus  =  0.0, 
avr_q_minus_sq  =  0.0; 

for  (int  i  =  0;  i  <  Nbin;  i++) 

{ 

avr_gr[i]  =  0.0; 
avr_gr_pp[i]  =  0.0; 
avr_gr_mm[i]  =  0.0; 
avr_gr_pm[i]  =  0.0; 

> 

double*  avr_correl  =  new  double [sys->get_size( )] ; 
for  (int  site  =  0;  site  <  sys->get_size( ) ;  site++) 
avr_correl [site]  =  0.0; 

for  (int  i  =  0;  i  <=  Nsteps;  i++) 

{ 

mc->sweep ( swap_f  req ) ; 
if  (i  %  print_freq  ==  0) 

{ 

//cout  «  i  «  11  11  «  sys->average_charge(2)  «  endl; 

cout  «  ( format ( "%6d  ")  %  i)  «  "  "  «  (format("%10.5e  ")  %  sys- 
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>total_energy ( ) )  «  11  11  «  (format("%10.5e  ")  %  sys->average_charge( ) ) 
«  "  "  «  (format("%10.5e  ")  %  sys->average_charge(  1) )  «  11  " 

«  (format("%10.5e  " )  %  sys->average_charge(2) )  «  11  "  « 
(format("%10.5e  ")  %  mc->get_cha rge_accept ( ) )  «  "  "  « 

(format("%10.5e  ")  %  mc->get_swap_accept ( ) )  «  endl; 

> 

if  (i  >=  Neqil  &&  i  %  measure_every  ==  0) 

{ 

//sys->charge_distribution(ch_dist,  N,  N); 
sys->charge_distribution ( ch_dist) ; 
double  avr_q  =  sys->average_charge( ) ; 
avr_charge  +=  avr_q; 
avr_charge_sq  +=  avr_q*avr_q; 
for  (int  bin  =  0;  bin  <  Nbin;  bin++) 
avr_gr[bin]  +=  g  r [bin ] ; 

if  ( ! single_component) 

{ 

double  q_p  =  sys->average_charge( 1) ; 

double  q_m  =  sys->average_charge(2) ; 

sys->charge_correlation_type(gr_pp,  Nbin, 1,1); 

sys->charge_correlation_type(gr_mml  Nbin, 2, 2) ; 

sys->charge_correlation_type(gr_pm,  Nbin, 1,2) ; 

avr_q_plus  +=  q_p; 

avr_q_plus_sq  +=  q_p*q_p; 

avr_q_minus  +=  q_m; 

avr_q_minus_sq  +=  q_m*q_m; 

for  (int  bin  =  0;  bin  <  Nbin;  bin++) 

{ 

avr_gr_pp [bin]  +=  gr_pp[bin]; 
avr_gr_mm [bin]  +=  gr_mm[bin]; 
avr_gr_pm [bin]  +=  gr_pm[bin]; 

} 

} 

sys->charge_correlation(gr,  0); 

of st ream  out ( (out_f ilename+"_charges_"+lexical_cast<st ring>( i) 
+" . dat" ) . c_str( ) ) ; 

for  (int  site  =  0;  site  <  sys->get_size( ) ;  site++) 

{ 

avr_site_q [site]  +=  sys->get_charge( site) ; 
avr_correl [site]  +=  g  r [ s ite ] ; 

out  «  sys->get_site( site)->x  «  "  "  «  sys->get_site( site)- 
>y  «  "  11  «  sys->get_site(site)->type  «  "  "  «  sys->get_charge( site) 
«  endl; 

} 

out. close( ) ; 
steps_to_average++; 

> 

} 
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char  end_time_str [81] ; 

time_t  end_time  =  time(NULL); 

tm  *end_tmbuf=localtime(&end_time) ; 

int  run_time  =  static_cast<int>(difftime(end_time, start_time) ) ; 

int  hours  =  run_time/3600; 

int  minutes  =  (run_time  %  3600)/60; 

int  seconds  =  (run_time  %  3600)%60; 

//list<string>: : iterator  it; 

strftime(end_time_str,  80,  "#  Simulation  successfully  finished  on 
%B,  %Y  at  end_tmbuf); 

cout  «  endl  «  end_time_str  «  endl; 

cout  «  "#  Simulation  took  total  of  11  «  hours  «  11  hours,  11  « 
minutes  «  "  minutes  and  "  «  seconds  «  "  seconds  ("  «  run_time  « 
seconds)"  «  endl; 


double  NN  =  static_cast<double>( steps_to_average) ; 

avr_charge  /=  NN; 

avr_charge_sq  /=  NN; 

avr_q_plus  /=  NN; 

avr_q_plus_sq  /=  NN; 

avr_q_minus  /=  NN; 

avr_q_minus_sq  /=  NN; 

for  (int  site  =  0;  site  <  sys->get_size( ) ;  site++) 
avr_site_q [site]  /=  NN; 

cout  «  "Calculating  correlation  funciton..."  «  endl; 

for  (int  site  =  0;  site  <  sys->get_size( ) ;  site++) 
avr_correl [site]  =  avr_correl [site] /NN  - 
avr_site_q [0] *avr_site_q [site] ; 


double  dr  =  0. 5*sys->get_lattice( )->get_box( )->Lx/ 
static_cast<double>(Nbin) ; 

double  Lx_half  =  0. 5*sys->get_lattice( )->get_box( )->Lx,  Ly_half  = 
sys->get_lattice( )->get_box( )->Ly; 

double*  avr_gr_to_print  =  new  double [Nbin] ; 

for(int  bin  =  0;  bin  <  Nbin;  bin++) 
avr_gr_to_print [bin]  =  0.0; 


cout  «  "Binning..."  «  endl; 

for  (int  site_j  =  0;  site_j  <  sys->get_size( ) ;  site_j++) 
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{ 

double  r  =  sys->get_lattice( )->get_distance(0, site_j ) ; 
if  ( r  <  Lx_half  &&  r  <  Ly_half) 

{ 

int  bin  =  static_cast<int>( r/dr) ; 
if  (bin  <  Nbin) 

avr_gr_to_p rint [bin]  +=  avr_correl [site_j ] / (M_PI*( ( bin+l)*( bin 
+1)  -  bin*bin)*dr*dr) ; 

> 

> 

double  charge_error  =  sqrt(avr_charge_sq  -  avr_charge*avr_charge)/ 
sqrt(NN-l) ; 

double  charge_error_p  =  sqrt(avr_q_plus_sq  -  avr_q_plus*avr_q_plus)/ 
sqrt(NN-l) ; 

double  charge_error_m  =  sqrt(avr_q_minus_sq  - 
avr_q_minus*avr_q_minus )/sqrt (NN-1) ; 

cout  «  endl  « 

" - "  «  endl  «  endl; 

cout  «  "Average  charge  :  "  «  avr_charge  «  "  +/-  11  «  charge_error 
«  endl; 

if  ( single_component) 
if  (is_acid) 

cout  «  "Dissociation  rate  :  "  «  avr_charge/(-q [0] )  «  endl; 
else 

cout  «  "Dissociation  rate  :  "  «  avr_charge/q [0]  «  endl; 

else 

{ 

cout  «  "Average  charge  (positive)  :  "  «  avr_q_plus  «  "  +/-  "  « 
charge_error_p  «  endl; 

cout  «  "Average  charge  (negative)  :  "  «  avr_q_minus  «  "  +/-  " 

«  charge_error_m  «  endl; 

cout  «  "Dissociation  rate  (positive)  :  "  «  avr_q_plus/q [0]  « 
endl; 

cout  «  "Dissociation  rate  (negative)  :  "  «  -avr_q_minus/q [1]  « 
endl; 

> 

cout  «  endl  « 

" - "  «  endl  «  endl; 

cout  «  "Printing  averages..."  «  endl; 

ofstream  avr_out( (out_f ilename+"_averages . dat" ) . c_str( ) ) ; 

if  ( ! single_component) 

avr_out  «  pH  «  "  "  «  avr_charge  «  "  "  «  charge_error  «  "  " 

«  avr_q_plus  «  "  "  «  charge_error_p  «  "  "  «  avr_q_minus  «  "  "  « 
charge_error_m  «  "  "  «  avr_q_plus/q [0]  «  "  "  «  -avr_q_minus/q [1] 

«  endl; 
else 
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if  (is_acid) 

avr_out  «  pH  «  11  11  «  avr_charge  «  "  "  «  charge_error  «  "  " 
«  avr_charge/(-q [0] )  «  endl; 

else 

avr_out  «  pH  «  "  "  «  avr_charge  «  "  11  «  charge_error  «  "  11 
«  avr_charge/q [0]  «  endl; 

avr_out. close( ) ; 

cout  «  "Printing  charges..."  «  endl; 

ofstream  ch_out( (out_f ilename+"_charges . dat" ) .c_str( ) ) ; 

for  (int  i  =  0;  i  <  sys->get_size( ) ;  i++) 

{ 

ch_out  «  sys->get_site( i)->x  «  "  "  «  sys->get_site( i ) — >y  «  "  " 
«  ch_dist [i] /static_cast<double>( steps_to_average)  «  endl; 

> 

ch_out. close( ) ; 

cout  «  "Printing  correlation..."  «  endl; 
ofstream  out_gr( (out_f ilename+"_pair_correl. dat" ) . c_str( ) ) ; 
out_gr  «  "#  bin  correl  "; 
if  ( ! single_component) 

{ 

out_gr  «  "  correl_pp  correl_mm  correl_pm  "  «  endl; 

} 

else 

out_gr  «  endl; 

cout  «  "Printing  2d  correl..."  «  endl; 

ofstream  out_correl( (out_f ilename+"_f ull_correl. dat" ) . c_str( ) ) ; 
for  (int  site_j  =  0;  site_j  <  sys->get_size( ) ;  site_j++) 
out_correl  «  sys->get_site( site_j )->x  «  "  "  «  sys- 

>get_site( site_j )->y  «  "  "  «  avr_correl [site_j ]  «  endl; 

out_correl. close( ) ; 

for(int  bin  =  0;  bin  <  Nbin;  bin++) 

{ 

//out_gr  «  bin  «  "  "  «  avr_gr [bin] /NN-avr_charge*avr_charge  « 

II  II  , 
f 

out_gr  «  bin  «  "  "  «  avr_gr_to_print [bin]  «  "  "; 

if  ( ! single_component) 

{ 

out_gr  «  avr_gr_pp [bin] /NN-avr_q_plus*avr_q_plus  «  "  "  « 

avr_gr_mm [bin] /NN-avr_q_minus*avr_q_minus  «  "  "  «  avr_gr_pm [bin] / 

NN-avr_q_plus*avr_q_minus  «  endl; 

} 

else 
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out_gr  «  endl; 

} 

out_gr. close( ) ; 


//sys->get_lattice( )->print_xyz (out_f ilename+"_charges . xyz" 

//sys->print_charges (out_f ilename+"_charges . dat", 
static_cast<int>( L) , static_cast<int>( L) ) ; 

//sys->print_energies (out_f ilename+"_energies . dat" , 
static_cast<int>( L) ,  static_cast<int>( L) ) ; 

//  delete  me; 

//  delete  sys; 

//  delete  []  gr; 

//  delete  []  gr_pp; 

//  delete  []  grjnm; 

//  delete  []  gr_pm; 

//  delete  []  avr_gr; 

//  delete  []  avr_gr_pp; 

//  delete  []  avr_gr_mm; 

//  delete  []  avr_gr_pm; 


return  0; 

} 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


#include  "lattice. h 


double  A1_X  =  0.5; 

double  A1_Y  =  -0.5*sqrt(3.0) ; 

double  A2_X  =  0.5; 

double  A2_Y  =  0.5*sqrt(3.0) ; 

static  bool  is_inside(double  x,  double  y,  Box&  box) 

{ 

if  (x  <  box.xlo)  return  false; 

if  (x  >=  box.xhi)  return  false; 

if  (y  <  box.ylo)  return  false; 

if  (y  >=  box.yhi  -  0.5*sqrt(3.0) )  return  false; 

return  true; 

} 

Lattice: : Lattice(double  LX,  double  LY,  double  a)  :  m_box( LX, LY) , 
m_lattice_constant(a) ,  m_has_type(false) 

{ 

double  i,  j ; 
double  x,  y; 
int  id; 

id  =  0; 
j  =  0.0; 

double  y_min  =  0.0; 
while  (j  <  m_box.Ly) 

{ 

i  =  0.0; 

while  (i  <  m_box.Ly) 

{ 

x  =  i*m_lattice_constant*Al_X  +  j*m_lattice_constant*A2_X; 
y  =  i*m_lattice_constant*Al_Y  +  j*m_lattice_constant*A2_Y; 
if  (is_inside(x,y,m_box) ) 

{ 

m_lattice. push_back( new  Site(id++,x,y, 0.0, 1,0.0) ) ; 
if  (y  c  y_min)  y_min  =  y; 

} 

if  (j  !=  0.0) 

{ 

x  =  i*m_lattice_constant*Al_X  -  j*m_lattice_constant*A2_X 
y  =  i*m_lattice_constant*Al_Y  -  j*m_lattice_constant*A2_Y 
if  ( is_inside(x, y, m_box) ) 

{ 

m_lattice. push_back( new  Site( id++,x, y, 0. 0, 1,0.0)); 
if  (y  c  y_min)  y_min  =  y; 

} 

> 

if  (i  ! =  0.0) 

{ 
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x  =  -i*m_lattice_constant*Al_X  +  j*m_lattice_constant*A2_X; 
y  =  -i*m_lattice_constant*Al_Y  +  j*m_lattice_constant*A2_Y; 
if  ( is_inside(x, y, m_box) ) 

{ 

m_lattice. push_back( new  Site( id++,x, y, 0. 0, 1,0.0)); 
if  (y  <  y_min)  y_min  =  y; 

} 

if  (j  !=  0.0) 

{ 

x  =  -i*m_lattice_constant*Al_X  -  j*m_lattice_constant*A2_X; 
y  =  -i*m_lattice_constant*Al_Y  -  j*m_lattice_constant*A2_Y; 
if  (is_inside(x,y,m_box) ) 

{ 

m_lattice. push_back( new  Site(id++,x,y, 0.0, 1,0.0) ) ; 
if  (y  <  y_min)  y_min  =  y; 

> 

> 

} 

i  +=  1.0; 

> 

j  +=  1.0; 

} 

m_box.ylo  =  y_min; 

m_box.yhi  =  -y_min; 

m_box.Ly  =  m_box.yhi  -  m_box.ylo; 

m_size  =  m_lattice. size( ) ; 

} 

double  Lattice: : get_distance( int  i,  int  j) 

{ 

Site*  si  =  m_lattice [i] ; 

Site*  s2  =  m_lattice [ j ] ; 

double  xl  =  sl->x,  yl  =  sl->y,  zl  =  sl->z; 

double  x2  =  s2->x,  y2  =  s2->y,  z2  =  s2->z; 

double  dx  =  xl  -  x2,  dy  =  yl  -  y2,  dz  =  zl  -  z2; 

if  (m_periodic) 

{ 

if  (dx  >  m_box.xhi)  dx  -=  m_box.Lx; 
else  if  (dx  <  m_box.xlo)  dx  +=  m_box.Lx; 
if  (dy  >  m_box.yhi)  dy  -=  m_box.Ly; 
else  if  (dy  <  m_box.ylo)  dy  +=  m_box.Ly; 

} 

return  sqrt(dx*dx  +  dy*dy  +  dz*dz); 

} 
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void  Lattice: : build_neighbor_list(double  kappa,  double  lb,  double 
r_cut) 

{ 

int  i,  j; 

Site*  si; 

Site*  s2; 
double  dist; 


m_eng_correction  =  lb*exp(-kappa*r_cut)/r_cut; 

for  (i  =  0;  i  <  m_size;  i++) 

{ 

m_neighbors . push_back( Neighbors ( i) ) ; 
for  (j  =  0;  j  <  m_size;  j++) 

{ 

s2  =  m_lattice  [  j ] ; 
if  (i  ! =  j ) 

{ 

dist  =  get_distance( i, j ) ; 
if  (dist  <=  r_cut) 

{ 

double  eng_fact  =  lb*exp(-kappa*dist)/dist; 

m_neighbors [i] .neighbors . push_back(Neighbor( s2, dist, eng_f act) ) ; 

} 


} 

} 

m_neighbors [i] . n_neighbors  =  m_neighbors [i] . neighbors . size( ) ; 

} 

} 

void  Lattice: : print_neighbors ( int  i) 

{ 

cout  «  "Neighbors  of  site  11  «  i  «  "  are  :  11 ; 
for  (int  j  =  0;  j  <  m_neighbors [i] . n_neighbors;  j++) 

cout  «  m_neighbors [i] . neighbors [j ]. site->id  «  11  "  «  endl; 
cout  «  endl; 

} 

void  Lattice: :print_xyz(string  name) 

{ 

ofstream  out; 

out. open ( name. c_str( ) ) ; 

out  «  m_size  «  endl; 

out  «  "Some  text"  «  endl; 

for  (int  i  =  0;  i  <  m_size;  i++) 

{ 

if  (m_lattice [i]->type  ==  1) 
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out  «  "C  11  «  m_lattice [i] ->x  «  "  11  «  m_lattice [i] ->y  « 
«  m_lattice [i] ->z  «  endl; 
else 

out  «  "N  "  «  m_lattice [i] ->x  «  "  "  «  m_lattice [i] ->y  « 
«  m_lattice [i] ->z  «  endl; 

} 

out. close( ) ; 

> 

void  Lattice: : swap_sites ( int  i,  int  j) 

{ 

double  q  =  m_lattice [ i ] — >q ; 
double  type  =  m_lattice [i] ->type; 
m_lattice [ i ] — >q  =  m_lattice [ j ] ->q; 
m_lattice [i]->type  =  m_lattice [ j ] ->type; 
m_lattice [j ]->q  =  q; 
m_lattice [j ]->type  =  type; 

} 
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#ifndef  _ BOX_H _ 

#define  _ BOH_H _ 

struct  Box 

{ 

Box(double  LX,  double  LY,  double  LZ  =  1.0) 

{ 

Lx  =  LX;  Ly  =  LY;  Lz  =  LZ; 
xlo  =  -0.5*LX;  xhi  =  0.5*LX; 
ylo  =  -0.5*LY;  yhi  =  0.5*LY; 
zlo  =  -0.5*LZ;  zhi  =  0.5*LZ; 

} 

double  xlo,  xhi; 
double  ylo,  yhi; 
double  zlo,  zhi; 
double  Lx,  Ly,  Lz; 


#endif 
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#  Monte  Carlo  simulation  for  solid/liquid  membranes 

# 

#  Authors:  Rastko  Sknepnek  (r-sknepnek@northwestern.edu) 

#  Graziano  Vernizzi  (g-vernizzi@northwestern.edu) 

# 

#  Department  of  Materails  Science  and  Engineering 

#  Northwestern  University 

# 

#  This  program  cannot  be  used,  modified,  and/or  copied  without 

#  explicit  permission  of  the  authors. 

# 

#  (c)  2009,  R.  Sknepnek  and  G.  Vernizzi 

# 

################################# 

##  Setup  include  directories  and  file  lists  for  sub  directories 
include_di rectories ( $ENV{GSL_DIR>/ include 

${MEMBRANE_SOURCE_DIR}/s  rc/computes 
${MEMBRANE_SOURC E_DIR}/s  rc/computes/ vertex 
${MEMBRANE_SOURCE_DIR>/s  rc/computes/edge 
${MEMBRANE_SOURC E_DIR}/s  rc/computes/t riangle 
${MEMBRANE_SOURCE_DIR}/s  rc/cooling_cu rves 
${MEMBRANE_SOURCE_DIR}/s  rc/d rive  r 
${MEMBRANE_SOURCE_DIR}/s  rc/d rive  r/MC 
${MEMBRANE_SOURCE_DIR}/s  rc/d river/ FIRE 
${MEMBRANE_SOURCE_DIR}/s  rc/d river/minimize r 
${MEMBRANE_SOURCE_DIR>/s  rc/d rive r/BasinHopping 
${MEMBRANE_SOURCE_DIR}/s rc/dump 
${MEMBRANE_SOURCE_DIR}/s  rc/log 
${MEMBRANE_SOURCE_DIR}/s  rc/parser 
${MEMBRANE_SOURCE_DIR}/s  rc/ system 
${MEMBRANE_SOURCE_DIR}/s  rc/utils 
${MEMBRANE_SOURCE_DIR}/s  rc/con strainer 
) 

#  list  of  all  sources  in  various  source  directories 
#file(GLOB  MEMBRANE_SRCS  ${MEMBRANE_SOURCE_DIR}/s rc/*. cpp  $ 
{MEMBRANE_SOURCE_DIR}/s  rc/*. h ) 

file (GLOB  INITIAL_CONFIGURATION_BUILDER_SRC  ${MEMBRANE_SOURCE_DIR}/ 
utils) 

####################### 

##  Configure  the  version  info  header  file 


#  handle  linux/mac  and  windows  dates  differently 
if  (NOT  WIN32) 

exec_p rog ram ( "date"  OUTPUT_VARIABLE  COMPILE_DATE) 
else(NOT  WIN32) 

exec_program( "cmd"  ARGS  "/c  date  /T"  OUTPUT_VARIABLE 
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COMPILE_DATE) 
endif  (NOT  WIN32) 
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#  Monte  Carlo  simulation  for  solid/liquid  membranes 

# 

#  Authors:  Rastko  Sknepnek  (r-sknepnek@northwestern.edu) 

#  Graziano  Vernizzi  (g-vernizzi@northwestern.edu) 

# 

#  Department  of  Materails  Science  and  Engineering 

#  Northwestern  University 

# 

#  This  program  cannot  be  used,  modified,  and/or  copied  without 

#  explicit  permission  of  the  authors. 

# 

#  (c)  2009,  R.  Sknepnek  and  G.  Vernizzi 

# 

#  first,  see  if  we  can  get  any  supported  version  of  Math  Kernel 
Library 

if ( USE_MKL_LIBRARY ) 

f ind_path (MKL_INCLUDE_PATH  mkl_vsl.h  /opt/intel/ 
composerxe-2011.4. 191/mkl/include  /opt/intel/composerxe/mkl/include  / 
opt/intel/Compiler/11. 1/046/mkl/ include/  /opt/ intel/compile rs/ll/mkl/ 
include/  /opt/intel/mkl/include) 

f ind_path (MKL_LIB_PATH  libmkl_core. a  /opt/intel/ 
composerxe-2011.4. 191/mkl/lib/intel64  /opt/intel/composerxe/mkl/lib/ 
intel64  /opt/intel/Compiler/11. l/046/mkl/lib/em64t  /opt/intel/ 
compile rs/ll/mkl/ lib/em64t  /opt/intel/mkl/lib/intel64) 

#f ind_path (MKL_I0MP5_PATH  libiomp5.a  /opt/intel/ 
composerxe-2011.4. 191/compiler/lib/intel64/  /opt/intel/Compiler/ 

11. l/046/lib/intel64  /opt/intel/compilers/ll/lib/intel64/) 

in clude_di rectories ( ${MKL_INCLUDE_PATH>) 

#link_directories ( ${MKL_LIB_PATH}  ${MKL_I0MP5_PATH}) 
link_di recto ries ( ${MKL_LIB_PATH} ) 

set (MKL_LIB_SEARCHPATH  /opt/intel/composerxe-2011. 4. 191/mkl/lib/ 
intel64  /opt/intel/composerxe/mkl/lib/intel64  /opt/intel/Compiler/ 

11. l/046/mkl/lib/em64t  /opt/intel/compilers/ll/mkl/lib/em64t/  /opt/ 
intel/mkl/lib/intel64) 

#set (MKL_I0MP5_SEARCHPATH  /opt/intel/Compiler/11. l/046/lib/intel64  / 
opt/ intel/compilers/ 11/ lib/ intel64/) 

set(MKL_LIBS  mkl_intel_lp64  mkl_sequential  mkl_core) 

#set (MKL_I0MP5  iomp5) 

foreach  (  LIB  ${MKL_LIBS}) 

f ind_library ( ${LIB>_PATH  ${LIB}  ${MKL_LIB_SEARCHPATH}) 
endforeach  (  LIB  ) 

#foreach  (  LIB  ${MKL_I0MP5>) 

#  f ind_library ( ${LIB>_PATH  ${LIB>  ${MKL_I0MP5_SEARCHPATH>) 
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#endforeach  (  LIB  ) 
endif (USE_MKL_LIBRARY) 


DISTRIBUTION  A:  Distribution  approved  for  public  release. 


#  Monte  Carlo  simulation  for  solid/liquid  membranes 

# 

#  Authors:  Rastko  Sknepnek  (r-sknepnek@northwestern.edu) 

#  Graziano  Vernizzi  (g-vernizzi@northwestern.edu) 

# 

#  Department  of  Materails  Science  and  Engineering 

#  Northwestern  University 

# 

#  This  program  cannot  be  used,  modified,  and/or  copied  without 

#  explicit  permission  of  the  authors. 

# 

#  (c)  2009,  R.  Sknepnek  and  G.  Vernizzi 

# 

CMAKE_MINIMUM_REQUIRED ( VERSION  2.6  FATAL_ERROR) 
if (COMMAND  cmake_policy ) 

cmake_policy(SET  CMP0003  NEW) 
endif (COMMAND  cmake_policy) 


project  (MEMBRANE) 


if ( ENABLE_STATIC ) 

SET  ( CMAKE_EXE_LINKER_FLAGS  l,${CMAKE_EXE_LINKER_FLAGS}  -static") 

SET  (THREAD_LIB  -Ipthread) 
endif (ENABLE_STATIC) 

option (USE_CGAL_LIBRARY  "Use  CGAL  library  with  building  initialization 
tools  (has  problems  with  static  builds"  ON) 

#  Setup  a  number  of  misc  options  and  libraries 
include  (CMakeMiscSetup.txt) 

#  Find  the  boost  libraries  and  set  them  up 
include  (CMakeBoostSetup.txt) 

#  Find  GSL  libraries 
include  (CMakeGSLSetup.txt) 

#  Set  default  CFlags 
include  (CMakeCFlagsSetup.txt) 

#  Configure  some  source  files,  include  directories,  and  create 
variables  listing  all  source  files 

include  (CMakeSRCSetup.txt) 

#  Include  GiNaC  libray 
include  (CMakeGiNaCSetup.txt) 

################################ 

##  Define  common  libraries  used  by  every  target  in  MEMBRANE 
set ( BOOST_LIBS  ${Boost_PROGRAM_OPTIONS_LIBRARY}  $ 
{Boost_REGEX_LIBRARY}  ) 
set (GSL_LIBS  ${GSL_LIBRARIES}) 
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set (MATH_LIB  -Im) 

set (MEMBRANE_LIBS  ${BOOST_LIBS}  ${GSL_LIBS}  ${MATH_LIB}) 

#  ############################################## 

#  place  all  executables  in  the  build  directory 

set  ( CMAKE_RUNTIME_OUTPUT_DIRECTORY  ${CMAKE_BINARY_DIR} ) 

############################### 

##  include  documentation  directories 
if  ( ENABLE_DOXYGEN ) 

add_subdirectory  (doc) 
endif  ( ENABLE_DOXYGEN ) 

add_subdi recto ry(src) 

add_executable(QET_build  ${INITIAL_C0NFIGURATI0N_BUILDER_SRC>/QET_V2) 
target_link_libraries (QET_build  ${MATH_LIB>) 

add_executable(QET_fast_build  ${INITIAL_CONFIGURATION_BUILDER_SRC>/ 
QET_V3 ) 

target_link_libraries (QET_fast_build  ${MATH_LIB}) 
add_executable(QET_icosa  ${INITIAL_CONFIGURATION_BUILDER_SRC}/ 
QET_icosa) 

target_link_libraries (QET_icosa  ${MATH_LIB>) 

add_executable ( QET_cha rge  ${INITIAL_CONFIGURATION_BUILDER_SRC}/ 
QET_elect rostatics ) 

target_link_libraries (QET_charge  ${MATH_LIB}) 
add_executable(QET_stoich  ${INITIAL_CONFIGURATION_BUILDER_SRC>/ 
StoichiometricTNumbers) 

target_link_libraries (QET_stoich  ${MATH_LIB>) 

add_executable(QET_f lat  ${INITIAL_CONFIGURATION_BUILDER_SRC>/f lat) 
target_link_libraries (QET_f lat  ${MATH_LIB>) 

add_executable(QET_pentagon  ${INITIAL_CONFIGURATION_BUILDER_SRC}/ 
f latPentagon) 

target_link_libraries (QET_pentagon  ${MATH_LIB>) 

#  If  enabled,  include  CGAL  library 
if  (USE_CGAL_LIBRARY) 

include  (CMakeCGALSetup.txt) 
endif  (USE_CGAL_LIBRARY) 

if  ( FOUND_CGAL_LIBRARY) 

link_libraries ( ${B00ST_LIBS}  ${MEMBRANE_LIBS}) 
add_executable(Random_mesh  ${INITIAL_CONFIGURATION_BUILDER_SRC>/ 
random_mesh) 

add_executable(triangulate_disk  $ 
{INITIAL_CONFIGURATION_BUILDER_SRC}/t riangulate_disk) 
endif  ( FOUND_CGAL_LIBRARY) 
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#  Monte  Carlo  simulation  for  solid/liquid  membranes 

# 

#  Authors:  Rastko  Sknepnek  (r-sknepnek@northwestern.edu) 

#  Graziano  Vernizzi  (g-vernizzi@northwestern.edu) 

# 

#  Department  of  Materails  Science  and  Engineering 

#  Northwestern  University 

# 

#  This  program  cannot  be  used,  modified,  and/or  copied  without 

#  explicit  permission  of  the  authors. 

# 

#  (c)  2009,  R.  Sknepnek  and  G.  Vernizzi 

# 

#find_package(GSL  REQUIRED) 

#include_di rectories ( ${GSL_INCLUDE_DIRS}) 

#MESSAGE("Searching  for  GSL  lib") 

FIND_LIBRARY(GSL_LIB_PATH  gsl) 

FIND_PATH(GSL_INCLUDE_PATH  gsl/gsl_rng . h  ) 

IF  (  GSL_LIB_PATH  AND  GSL_INCLUDE_PATH  ) 

#MESSAGE(" —  Looking  for  Ginac  -  found") 

SET (  GSL_INCLUDE  "${GSL_INCLUDE_PATH}" ) 

SET (  GSL_LIBRARIES  "-Igsl  -Igslcblas") 
in clude_di rectories ( ${GSL_INCLUDE_PATH}) 
lin k_di recto ries (${GSL_LIB_PATH>) 

#MESSAGE(  Ginac  includes  ${GINAC_INCLUDE}" ) 

#MESSAGE(  Ginac  libs  ${GINAC_LIBS}" ) 

ELSE  (  GSL_LIB_PATH  AND  GSL_INCLUDE_PATH  ) 

MESSAGE (FATAL_ERROR  "GSL  not  found") 

ENDIF  (  GSL_LIB_PATH  AND  GSL_INCLUDE_PATH  ) 
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# 

#  Simulator  of  solid/liquid  membranes. 

# 

#  Author:  Rastko  Sknepnek  (sknepnek@gmail.com) 

# 

#  Department  of  Materials  Sciences  and  Engineering 

#  Northwestern  University 

# 

#  (c)  2009,  2010,  2011,  2012,  all  rights  reserved 

# 

#  Department  of  Physics 

#  Syracuse  University 

# 

#  (c)  2012,  all  rights  reserved 

# 

#  This  program  cannot  be  used,  copied,  or  modified  without 

#  explicit  permission  of  the  author. 

# 

#  ############################################################ 

# 

#  Try  to  locate  GiNaC  library 

# 

#  ############################################################ 

OPTION(  GINAC_SUPPORT  "Turn  me  off  to  disable  Ginac  support"  OFF  ) 

SET ( GINAC_FOUND  FALSE) 

IF  (GINAC_SUPPORT) 

#MESSAGE("Searching  for  ginac  lib") 

FIND_LIBRARY(GINAC_LIB_PATH  ginac) 

FIND_PATH(GINAC_INCLUDE_PATH  ginac/ginac . h  ) 

IF  (  GINAC_LIB_PATH  AND  GINAC_INCLUDE_PATH  ) 

#MESSAGE(" —  Looking  for  Ginac  -  found") 

SET (  GINAC_INCLUDE  "${GINAC_INCLUDE_PATH}" ) 

SET (  GINAC_LIBS  "${GINAC_LIB_PATH}" ) 

#MESSAGE(  Ginac  includes  ${GINAC_INCLUDE>" ) 

#MESSAGE(  Ginac  libs  ${GINAC_LIBS}" ) 

ADD_DEFINITIONS ( -DENABLE_GINAC ) 

SET  (GINAC_FOUND  TRUE) 

ENDIF  (  GINAC_LIB_PATH  AND  GINAC_INCLUDE_PATH  ) 

ENDIF  (GINAC_SUPPORT) 
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#  Monte  Carlo  simulation  for  solid/liquid  membranes 

# 

#  Authors:  Rastko  Sknepnek  (r-sknepnek@northwestern.edu) 

#  Graziano  Vernizzi  (g-vernizzi@northwestern.edu) 

# 

#  Department  of  Materails  Science  and  Engineering 

#  Northwestern  University 

# 

#  This  program  cannot  be  used,  modified,  and/or  copied  without 

#  explicit  permission  of  the  authors. 

# 

#  (c)  2009,  2010,  2011  R.  Sknepnek  and  G.  Vernizzi 

# 

set ( CMAKE_ALLOW_LOOSE_LOOP_CONSTRUCTS  t  rue ) 

if  (  COMMAND  cmake_policy  ) 

cmake_policy (  SET  CMP0003  NEW  ) 
endif ( ) 

if ( POLICY  CMP0011) 

cmake_policy(SET  CMP0011  NEW)  #  or  even  better,  NEW 
endif ( POLICY  CMP0011) 

#  setup  the  CGAL  static  linkage 

if ( ENABLE_STATIC ) 

set (CGAL_BUILD_SHARED_LIBS  "OFF") 

else ( ENABLE_STATIC ) 

set ( CGAL_BUILD_SHARED_LIBS  "ON" ) 

endif (ENABLE_STATIC) 


f ind_package(CGAL  COMPONENTS  Core  ) 
if  (  CGAL_FOUND  ) 

include(  ${CGAL_USE_FILE}  ) 
include(  CGAL_CreateSingleSourceCGALProgram  ) 
set ( FOUND_CGAL_LIBRARY  true) 
else( ) 

set ( FOUND_CGAL_LIBRARY  false) 
endif ( ) 
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#  Monte  Carlo  simulation  for  solid/liquid  membranes 

# 

#  Authors:  Rastko  Sknepnek  (r-sknepnek@northwestern.edu) 

#  Graziano  Vernizzi  (g-vernizzi@northwestern.edu) 

# 

#  Department  of  Materails  Science  and  Engineering 

#  Northwestern  University 

# 

#  This  program  cannot  be  used,  modified,  and/or  copied  without 

#  explicit  permission  of  the  authors. 

# 

#  (c)  2009,  R.  Sknepnek  and  G.  Vernizzi 

# 


################################# 

##  Setup  default  CXXFLAGS 
if (NOT  PASSED_FIRST_CONFIGURE) 

message(STATUS  "Overriding  CMake's  default  CFLAGS  (this  should 
appear  only  once)") 

if (CMAKE_COMPILER_IS_GNUCXX) 

#  special  handling  to  honor  gentoo  flags 
if  (HONOR_GENTOO_FLAGS) 

set ( CMAKE_CXX_FLAGS_DEBUG  "-Wall"  CACHE  STRING  "Flags 
used  by  the  compiler  during  debug  builds."  FORCE) 

set (CMAKE_CXX_FLAGS_MINSIZEREL  "-Wall  -DNDEBUG"  CACHE 
STRING  "Flags  used  by  the  compiler  during  minimum  size  release 
builds."  FORCE) 

set ( CMAKE_CXX_FLAGS_RELEASE  "-DNDEBUG  -Wall"  CACHE 
STRING  "Flags  used  by  the  compiler  during  release  builds."  FORCE) 

set ( CMAKE_CXX_FLAGS_RELWITHDEBINFO  "-DNDEBUG  -Wall" 
CACHE  STRING  "Flags  used  by  the  compiler  during  release  builds  with 
debug  info."  FORCE) 

else  (HONOR_GENTOO_FLAGS) 

#  default  flags  for  g++ 

#  default  build  type  is  Release  when  compiling  make 

files 

if (NOT  CMAKE_BUILD_TYPE) 

if (${CMAKE_GENERATOR>  STREQUAL  "Xcode") 
else ( ${CMAKE_GENERATOR}  STREQUAL  "Xcode") 

set (CMAKE_BUILD_TYPE  "Release"  CACHE 
STRING  "Build  type:  options  are  None,  Release,  Debug,  RelWithDeblnfo" 
FORCE) 

endif ( ${CMAKE_GENERATOR}  STREQUAL  "Xcode") 
endif (NOT  CMAKE_BUILD_TYPE) 

set ( CMAKE_CXX_FLAGS_DEBUG  "-g  -Wall"  CACHE  STRING 
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"Flags  used  by  the  compiler  during  debug  builds."  FORCE) 

set (CMAKE_CXX_FLAGS_MINSIZEREL  "-Os  -Wall  -DNDEBUG" 
CACHE  STRING  "Flags  used  by  the  compiler  during  minimum  size  release 
builds."  FORCE) 

set ( CMAKE_CXX_FLAGS_RELEASE  "-03  -fun  roll-loops  - 
ffast-math  -DNDEBUG  -Wall"  CACHE  STRING  "Flags  used  by  the  compiler 
during  release  builds."  FORCE) 

set ( CMAKE_CXX_FLAGS_RELWITHDEBINFO  "-g  -0  -fun roll- 
loops  -ffast-math  -DNDEBUG  -Wall"  CACHE  STRING  "Flags  used  by  the 
compiler  during  release  builds  with  debug  info."  FORCE) 

endif  (H0N0R_GENT00_FLAGS) 
elseif (MSVC80) 

#  default  flags  for  visual  studio  2005 
if  ( CMAKE_C L_64) 

set(SSE_OPT  "") 
else  ( CMAKE_C L_64) 

set(SSE_OPT  "/arch:SSE2") 
endif  (CMAKE_CL_64) 

set ( CMAKE_CXX_FLAGS  "/DWIN32  /D_WIND0WS  /W3  /Zml000  / 
EHa  /GR  /MP"  CACHE  STRING  "Flags  used  by  all  build  types."  FORCE) 

set ( CMAKE_CXX_FLAGS_RELEASE  "${SSE_0PT}  /Oi  /Ot  /Oy  / 
fp: fast  /MD  /Ox  /0b2  /D  NDEBUG"  CACHE  STRING  "Flags  used  by  the 
compiler  during  release  builds."  FORCE) 

set ( CMAKE_CXX_FLAGS_RELWITHDEBINFO  "${SSE_0PT}  /Oi  / 
Ot  /Oy  /fp: fast  /MD  /Zi  /Ox  /Obi  /D  NDEBUG"  CACHE  STRING  "Flags  used 
by  the  compiler  during  release  builds  with  debug  info."  FORCE) 

set (CMAKE_CXX_FLAGS_MINSIZEREL  "${SSE_0PT>  /Oi  /Ot  / 
Oy  /fp: fast  /MD  /OI  /Obi  /D  NDEBUG"  CACHE  STRING  "Flags  used  by  the 
compiler  during  minimum  size  release  builds."  FORCE) 

else ( CMAKE_COMPILER_IS_GNUCXX) 

message (SEND_ERROR  "No  default  CXXFLAGS  for  your 
compiler,  set  them  manually") 

endif (CMAKE_COMPILER_IS_GNUCXX) 

SET ( PASSED_FIRST_CONFIGURE  ON  CACHE  INTERNAL  "First  configure  has  run 
CXX_FLAGS  have  had  their  defaults  changed"  FORCE) 
endif (NOT  PASSED_FIRST_CONFIGURE) 
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#  Monte  Carlo  simulation  for  solid/liquid  membranes 

# 

#  Authors:  Rastko  Sknepnek  (r-sknepnek@northwestern.edu) 

#  Graziano  Vernizzi  (g-vernizzi@northwestern.edu) 

# 

#  Department  of  Materails  Science  and  Engineering 

#  Northwestern  University 

# 

#  This  program  cannot  be  used,  modified,  and/or  copied  without 

#  explicit  permission  of  the  authors. 

# 

#  (c)  2009,  R.  Sknepnek  and  G.  Vernizzi 

# 


################################# 
##  Boost  is  a  required  library 


#  setup  the  boost  static  linkage 

if ( ENABLE_STATIC ) 

set ( Boost_USE_STATIC_LIBS  "ON" ) 

else ( ENABLE_STATIC ) 

set ( Boost_USE_STATIC_LIBS  "OFF" ) 

endif ( ENABLE_STATIC ) 

set ( Boost_USE_MULTITHREAD  "OFF" ) 


#  setup  some  additional  boost  versions  so  that  the  newest  versions  of 
boost  will  be  found 


#set ( Boost_ADDITIONAL_VERSIONS  "1.41. 0; 1.41; 1.40. 0; 1.40; 1. 39. 0; 1. 39" ) 
set ( Boost_ADDITIONAL_VERSIONS  "1.55.0"  "1.55"  "1.54.0"  "1.54"  "1.53" 


"1.52"  "1.51"  "1.51.0"  "1.50"  "1.50.0"  "1.49"  "1.49.0"  "1.48"  "1.48.0" 


"1.48.0.2"  "1.47"  "1.47.0" 


"1.46.1"  "1.46"  "1.46.0"  "1.45" 


"1.45.0" 


"1.44"  "1.44.0"  "1.42"  "1.42.0"  "1.41.0"  "1.41"  "1.40.0"  "1.40" 
"1.39.0"  "1.39"  "1.38.0"  "1.38"  "1.37.0"  "1.37"  ) 


#  first,  see  if  we  can  get  any  supported  version  of  Boost 
#find_package(Boost  1.48  COMPONENTS  program_options  regex  REQUIRED) 
#find_package(Boost  COMPONENTS  program_options  regex  REQUIRED) 
find_package(Boost  COMPONENTS  program_options  REQUIRED) 

#  if  we  get  boost  1.35  or  greater,  we  need  to  get  the  system  library 
too 


#if  ( Boost_MINOR_VERSION  GREATER  34) 

#find_package(Boost  1.48.0  COMPONENTS  program_options  regex  REQUIRED) 
#endif  ( Boost_MINOR_VERSION  GREATER  34) 

include_di rectories ( ${Boost_INCLUDE_DIR>) 
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Codes  for  the  paper  "Polydispersity-driven  topological  defects  as 
order-restoring  excitations" 


cluster.cpp 


////////////////////////////////////////////////// 

////soft  particles  with  dispersity //////////////// 
////by  Zhenwei  Yao  /////////////////////////////// 
////Date:  June  24,  2013//////////////////////////// 
////////////////////////////////////////////////// 


#include  "variables. h" 


double  Vij  (int  argj,  int  argj); 
double  Vi  (int  argj); 
vec  move_s  (vec  arg_r,  vec  arg_s); 
void  do_MC  (); 

/ ////////////// ////////////////// ////////// //// /// /////// 
//////////////////////////////////////////////////////// 

/////m  a  i  n  f u  n  ct i  o  n ///////////////////////////////////// 

/ ////////////// ////////////////// ////////////// /////// 

int  main(){ 

double  beta  =  1.9; 

int  Nsw  =  1000000;  //1000000 

int  nL  =  10; 
diameter_avg  =  R/nL; 
s  =  0.01*diameter_avg; 

double  Tini; 

Temp  =  pow(l-0. 5,  alpha)*0. 0000001; 
Tini  =  Temp; 


cout< <"initial  temperature  is:  "<<Temp<<endl; 

cout<<"diameter_avg  =  "<<diameter_avg<<  "  ;  beta  =  "  <<beta<<endl 
cout<<"alpha  =  "<<alpha<<";  N  =  "<<N<<"  ;  nL  =  "<<nL<<endl; 

////specify  diameter/// 

/////////////////////// 
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int  i,  j,  m,  I; 
for  (i  =  l;  i<  =  N;  i  +  +  ){ 
diameter[i]  =  diameter_avg*1.0; 

} 


////////specify  initial  positions  of  disks//////// 

////////////////////////////////////////////////// 
double  energy[Nsw+l]; 
vec  v_temp; 
double  pro; 

/*  initialize  random  seed:  */ 
srand  (time(NULL)); 

double  a  =  diameter_avg; 
i  =  0; 

for  (1=0;  I <  =  n L;  l  +  +  ){ 
for(m  =  0;  m  <=  2*nL-abs(l);  m  +  +  ){ 
i  +  +  ; 

v_temp.set_x(-nl_*a+a/2.0*l  +  m*a);  //such  that  the  last  item  at  level  I  has  x- 
coordinates:  na-al/2 

v_temp.set_y(sqrt(3.0)/2.0*a*l); 

pt[i].set_X(v_temp); 

//pt_new[i].set_X(v_temp); 

}} 

diameter[nL+l]  =  diameter_avg  *  beta; 

for  (l=-l;  I > =-n L;  l  =  l-l){ 
for(m  =  0;  m  <=  2*nL-abs(l);  m  +  +  ){ 
i  +  +  ; 

v_temp.set_x(-nl_*a+a/2.0*abs(l)  +  m*a); 

v_temp.set_y(-sqrt(3.0)/2.0*a*abs(l)); 

pt[i].set_X(v_temp); 

//pt_new[i].set_X(v_temp); 

}} 

///////save  initial  positions//////// 

///////////////////////////////////// 
ofstream  coordi  nates  initial  ifile; 

coord  inates_initial_ifile.open("output_files/points_coord  inates_initial.txt"); 
for(i  =  l;i<  =  N;i  +  +  ){ 
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coord  inates_initial_ifile<<pt[i].get_X().get_x()<<"\t"<<pt[i].get_X().get_y()<<endl; 

} 

coord  inates_initial_ifile.close(); 

/////energy  of  initial  state//// 

//////////////////////////////// 

energyjni  =  0; 

for(i  =  1;  i  <=  N;  i  +  +  ){ 

energyjni  =  energyjni  +  Vi(i); 

} 

//energyjni  =  energyJni/2.0; 
energy[0]  =  energyjni; 

cout<<"the  energy  of  initial  state  is:  "<<energy[0]<<endl; 


/////////////// 

//do  MCI II 1/11/ 

/////////////// 

double  dT  =  0.9999; 
for  (j  =  1;  j  <=  Nsw;  j  +  +  ){ 

do_MC();  //changes  the  global  variables:  pt[N  +  l],  energyjni 
energy[j]  =  energyjni; 

if  (  abs(energy[j]  -  energy[j-l])/energy[j-l]  <  0.0000001)  { 

Temp  =  dT*Temp; 

//cout<<"  temperature  decreased  to  "<<Temp<<endl; 

} 

if  (j%(Nsw/10)  ==  0) 

cout<<"ns  =  "<<j<<"  Temperature  =  "<<Temp<<"  ;  s  =  diameter_avg  * 
"<<s/diameter_avg<<"  energy  is  "<<energy[j]<<endl; 

} 

////////////////////////////////// 

///write  to  files///////////////// 

////////////////////////////////// 

ofstream  parameterjfile; 

parameterJfile.open("output_files/parameters.txt"); 

parameterjfile<<"step  length:  s  =  "<<s<<"  ;  R  =  "<<R<<"  ;  N  =  "<<N<<" 
;  alpha  =  "<<alpha<<";  diameter  ="<<diameter_avg  \ 
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<<"  ;  beta  =  "<<beta<<"  ;  Tinitial  =  "<<Tini<<  T  =  dT  *  T,  with  dT 
=  "<<  dT<<  "  ;  total  sweeps  Nsw  =  "<<Nsw<<  endl; 
parameter_ifile.close(); 

ofstream  coordinatesjfile,  energy_ifile,  energy  i  ifi le; 

coordinates_ifile.open("output_files/points_coordinates.txt"); 
for(i  =  l;i<  =  N;i  +  +  ){ 

coordinates_ifile<<pt[i].get_X().get_x()<<"\t"<<pt[i].get_X().get_y()<<endl 

} 

coordinates_ifile.close(); 

energy_ifile.open("output_files/tot_energy.txt"); 
for(i  =  l;i<  =  Nsw;i  ++){ 
if  (i%(Nsw/50)  ==  0) 

energy_ifile<<i<<"\t"<<energy[i]<<endl;  //  50  records  in  total 

} 

energy_ifile.close(); 

energy_i_ifile.open("output_files/energyJ.txt"); 
for(i  =  l;i<  =  N;i  +  +  ){ 

energy_i_ifile<<i<<"\t"<<Vi(i)<<endl;  // 

} 

energy_i_ifile.close(); 
return  0; 

} 


=  =  =  =  =  =  =  =  =  =  =  do_MC.cpp 
#include  "variables. h" 
vec  move_s  (vec  arg_r,  vec  arg_s); 
double  Vi  (int  argj); 

void  do_MC(){  //changes  the  global  variables:  pt[N  +  l],  energyjni,  denergy. 
Gamma  is  also  a  global  constant 

double  beta,  beta_r,  energy_new,  pro,  pro_theta; 
double  Viold,  Vinew; 
vec  r_old; 
int  i,j; 

vec  vec_s,  r_new,  vec_t,  ri  hat; 

for(i  =  1;  i  <=  N;  i  +  +  ){  //,  i!=  ((nL+l)/2)*nl_  +  ((nL+l)/2) 
if  (i  ==  nL+1  ){  //fix  the  middle  disk 
continue; 
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} 


r_old  =  pt[i].get_X(); 

Viold  =  Vi(i); 

//move  a  step 

srand  (time(NULL)); 

pro_theta  =  rand()%100000; 

pro_theta  =  pro_theta/100000;  //  in  [0,1] 

beta  =  pro_theta*2*Pi;  //  in  [0,  2*Pi] 

/* 

srand  (time(NULL)); 
pro_s  =  rand()%100000; 

pro_s  =  pro_s/100000  -0.5;  //  in  [0,l]-0.5  =  [-0.5, 0.5] 
amp  =  pro_s*2.0*s;  //  in  [-s,  s] 

*/ 

vec_s.set_x(s*cos(beta)); 
vec_s.set_y(s*sin(beta)); 
r_new  =  move_s(pt[i].get_X(),vec_s); 

if  (  r_new.get_x()  <  -R  ||  r_new.get_x()  >  R  \ 

||  r_new.get_y()  <  -sqrt(3.0)/2.0*R  ||  r_new.get_y()  >  sqrt(3.0)/2.0*R  \ 
||  r_new.get_y()  <  -sqrt(3.0)*  (R-  abs(r_new.get_x()))  ||  r_new.get_y()  > 
sqrt(3.0)*  (R-  abs(r_new.get_x()))  )  {  //i . e . ,  r_new  is  outside  the  hexagonal  disk 
r_new  =  pt[i].get_X(); 
continue; 

} 

pt[i].set_X(r_new);  //change  pt[i] 

Vinew  =  Vi(i); 

//calculate  the  change  of  energy 
denergy  =  Vinew  -  Viold; 

pt[i].set_X(r_old);  //reset  pt[i] 

//judge  if  accept  the  step 

if  (denergy  <  0)  {  pt[i].set_X(r_new);  energyjni  =  energyjni  +  denergy; 
continue;  } 

if  (denergy/Temp  >  75)  continue; 
else  { 

srand  (time(NULL)); 
pro  =  rand()%100000; 
pro  =  pro/100000; 
if  (  pro  <  exp(-denergy/Temp)  ){ 
pt[i].set_X(r_new); 
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energyjni  =  energyjni  +  denergy; 
continue; 

} 

else  continue; 


}  //end  of  for 

}; 


=  =  =  =  =  =  =  =  =  =  Point. h 
#ifndef  POINT_H 
#define  POINT_H 

#include  "variables. h" 

class  Point{ 

vec  X,  s_vec;  //position  of  a  point  is  X  and  its  associated  s_vec  generate 
new  point:  X+s_vec. 
public: 

//////////////////// 

//specify  values//// 

//////////////////// 


/////////////////////// 

///set  member  data///// 

/////////////////////// 

void  set_X(vec  other) { 

X  =  other; 

}; 

void  set_s_vec(vec  other) { 
s_vec  =  other; 

}; 


/////////////////////// 

///visit  member  data  III 
/////////////////////// 

vec  get_X(){ 
return  X; 

}; 

vec  get_s_vec(){ 
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return  s_vec; 

}; 


}; 


#endif 
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Codes  for  the  paper  "Electrostatic  repulsion-driven  crystallization  model  arising  from 
filament  networks" 

=  =  =  =  =  =  =  =  bessko.cpp 
#include  "variables. h" 
double  bessiO(double  x); 


double  besskO(double  x)  //Ref:  Numerical  Recipes  in  C,  The  Art  of  Scientific 
Computing  Second  Edition 
{ 

//double  bessiO(double  x); 

double  y,ans; 

if  (x  <=  2.0)  { 
y=x*x/4.0; 

ans=(-log(x/2.0)*bessi0(x))  +  (-0.57721566+y*(0. 42278420 
+y*(0.23069756+y*(0.3488590e-l+y*(0.262698e-2 
+y*(0.10750e-3+y*0.74e-5 )))))); 

}  else  { 
y=2.0/x; 

ans=(exp(-x)/sqrt(x))*(1.25331414+y*(-0.7832358e-l 

+y*(0.2189568e-l+y*(-0.1062446e-l+y*(0.587872e-2 

+y*(-0.251540e-2+y*0.53208e-3)))))); 

} 

return  ans; 

}; 


=  =  =  =  =  =  =  =  =  do_MC.cpp 
#include  "variables. h" 
vec  move_s  (vec  arg_r,  vec  arg_s); 
double  Vi  (vec  arg_vi,  int  arg  i); 

void  do_MC(){  //changes  the  global  variables:  pt[N  +  l],  energyjni,  denergy. 
Gamma  is  also  a  global  constant 

double  beta,  beta_r,  energy_new,  pro; 
int  i,j; 

vec  vec_s,  r_new,  vec_t,  ri  hat; 
for(i  =  1;  i  <=  N;  i  +  +  ){ 

//move  a  step 

pro  =  rand()%100000; 

pro  =  pro/100000;  //  in  [0,1] 

beta  =  pro*2*Pi;  //  in  [0,  2*Pi] 
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vec_s.set_x(s*cos(beta)); 

vec_s.set_y(s*sin(beta)); 

r_new  =  move_s(pt[i].get_X(),vec_s); 

if  (r_new.norm()  >  R)  { 

r_new  =  move_s(pt[i].get_X(),vec_s.inverse()); 

pro  =  rand()%100000; 
pro  =  pro/100000;  //  in  [0,1] 

beta_r  =  pro*(Pi-s/R)  +  Pi/2 +s/(2*R);  //  in  [Pi/2  +  s/(2R),  3Pi/2  -  s/(2R)] 

vec_t.set_x(-1.0*pt[i].get_X().get_y()/pt[i].get_X().norm()); 

vec_t.set_y(pt[i].get_X().get_x()/pt[i].get_X().norm()); 

ri_hat.set_x(pt[i].get_X().get_x()/pt[i].get_X().norm()); 

ri_hat.set_y(pt[i].get_X().get_y()/pt[i].get_X().norm()); 

vec_s.set_x(s*cos(beta_r)*ri_hat.get_x()  +  s*sin(beta_r)*vec_t.get_x()  ); 
vec_s.set_y(s*cos(beta_r)*rJhat.get_y()  +  s*sin(beta_r)*vec_t.get_y()  ); 

r_new  =  move_s(pt[i].get_X(),vec_s); 

>- 

//calculate  the  change  of  energy 

denergy  =  Omega*pow(r_new.norm()/R,2.0)*exp(kappa*(r_new.norm()-R))  - 
Omega*pow(pt[i].get_X().norm()/R,2.0)*exp(kappa*(pt[i].get_X().norm()-R))  + 
Vi(r_new,  i)  -  Vi(pt[i].get_X(),i); 

//  denergy  =  Gamma*(pow(r_new.norm(),2)  -  pow(pt[i].get_X().norm(),2)  )  + 
Vi(r_new,  i)  -  Vi(pt[i].get_X(),i); 

//energy_ini  =  energy_ini  +  denergy; 

//judge  if  accept  the  step 

if  (denergy  <  0)  {  pt[i].set_X(r_new);  energyjni  =  energyjni  +  denergy; 
continue;  } 

if  (denergy/energyjni  >  75)  continue; 
else  { 

pro  =  rand()%100000; 
pro  =  pro/100000; 
if  (  pro  <  exp(-denergy/Temp)  ){ 
pt[i].set_X(r_new); 
energyjni  =  energyjni  +  denergy; 
continue; 

} 

else  continue; 

} 
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}  //end  of  for 


}; 


=  =  =  =  =  =  =  move_s.cpp 
#include  "variables. h" 

vec  move_s  (vec  arg_r,  vec  arg_s){ 
vec  arg_rp; 

a  rg_r  p .  set_x  ( a  rg_r.  g  et_x  ( ) + a  rg_s .  g  et_x  ( ) ) ; 
a  rg_r  p .  set_y  ( a  rg_r.  g  et_y  ( ) + a  rg_s .  g  et_y  ( ) ) ; 
return  arg_rp; 

}; 
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Codes  for  the  paper  "Packing  of  charged  chains  on  toroidal  geometries" 


chain. cpp 


////////////////////////////////////////////////// 

////ground  state  shape  of  a  chain  on  torus//////// 
////by  Zhenwei  Yao  /////////////////////////////// 
////Date:  June  8,  2012//////////////////////////// 
////////////////////////////////////////////////// 

#include  "header.h" 

#include  "vec.h" 

//#include  "test.h" 

#include  "Point. h" 

#include  <time.h> 

#include  <fstream> 


double  get_Vij  (vec  argl,  vec  arg2){ 
double  arg_d; 
vec  diff; 

diff  =  argl  -  arg2; 

arg_d  =  (l/diff.norm())*exp(-(diff.norm())/lambda);  // *exp(- 
(diff.norm())/lambda) 
return  arg_d; 

} 


//  with  given  alpha  of  pt[0]  and  all  beta[N],  we  can  specify  all  points  (X_A,  p_normal 
and  calibrated  X) 

//  this  function  returns  all  points 
//theta  of  the  first  point  is  DEFINED  to  be  unity 
Point  *  specify_points(double  alpha  initial  a rg,  double  beta_arg[]){ 
int  i; 

Point  pt_temp[N  +  1]; 

////speficy  pt_temp[0] 

vec  pt_first(Rl  +  R2*cos(alpha_initial_arg),0,R2*sin(alpha_initial_arg)); 

//al  phai  nitia  la  rg  determines  the  first  point 

pt_temp[0].set_X(pt_first);  //specify  X  for  pt[0] 

pt_temp[0].set_XA_N_X();  //speficy  X_A,  p_normal  and  the  calibrated  X  for 

pt[0] 

pt_temp[0].set_beta(beta_arg[0]);  //speficy  beta  associated  with  pt[0] 
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////specify  ealpha 

vec  ealpha(-dl2*sin(alpha_initial_arg),  0,  dl2*cos(alpha_initial_arg));  //get  the 
ealpha,  whose  length  is  dl2 
///to  find  pt[l] 
vec  vOl;  //vOl  =  XI  -  XO 

vOl  =  ealpha. rotate(pt_temp[0].get_p_normal(),  beta_arg[0]); 
pt_temp[l].set_X(pt_temp[0].get_X()  +  vOl); 

pt_temp[l].set_XA_N_X();  //speficy  X_A,  p_normal  and  the  calibrated  X  for 

pt[l] 

pt_temp[l].set_beta(beta_arg[l]);  //speficy  beta  associated  with  pt[l] 

//set  all  points  from  pt[2]  to  pt[N] 
for(i  =  2;  i  <=  N;  i  +  +  ){ 
pt_temp[i].set_X(  pt_temp[i-l].get_X()  \ 

+  ((pt_temp[i-2].get_X()-pt_temp[i-l].get_X())/((pt_temp[i-2].get_X()- 
pt_temp[i-l].get_X()).norm())*dl2  ).rotate(pt_temp[i-l].get_p_normal(),beta_arg[i- 
1])  ); 

//rotate  v(i-2  to  i-1),  and  get  pt[i] 
pt_temp[i].set_XA_N_X();  //calibrate  X  of  i 

pt_temp[i].set_beta(beta_arg[i]);  //  set  the  angle  note:  beta_arg[N]  is  not 
specified 

}; 

return  pt_temp; 

} 

//calculate  energy  for  a  given  configuration 

double  energy(Point  pt_arg[],  int  N_arg){  //N_arg:  energy  of  pt[0]...pt[N_arg] 
double  tv  =  0; 
int  i,  j; 

for(i  =  0;  i  <=  N_arg-1;  i  +  +  ){ 
for  (j  =  i  +  1;  j<  =  N_arg;j  +  +  ){ 

tv  =  tv  +  get_Vij(pt_arg[i].get_X(),  pt_arg[j].get_X()); 

} 

}  //  end  of  the  two  for's 
return  tv; 

} 


///////////////////////////////////////////////////////// 
//////////////////////////////////////////////////////// 
/////rm  a  i  n  f u  n  ct i  o  n ///////////////////////////////////// 
////////////////////////////////////////////////////// 
///////////////////////////////////////////////////// 
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int  main(){ 
int  i,  j; 

int  m_RW,  M_RW  =  1000;  //number  of  RWs 

double  dl2;  //bond  distance 

double  beta[N];  //rotating  angle  from  pt  0  to  N-l 

Point  pt[N  +  l]; 

double  pro; 

cout<<"initial  condition:  pi/2,  pi/2;  N  =  200;  M_RW  =  1000;  R1  =  1.2 
"<<endl; 

//to  initialize  pt[N] 
beta[0]  =  Pi/2; 
for  (i  =  1;  i<=  N/5;  i  +  +  ){ 
beta[i]  =  Pi+0.01; 

}; 

for  (i  =  N/5 ;  i<=  2*N/5;  i  +  +  ){ 
beta[i]  =  Pi+0.05; 

}; 

for  (i=2*N/5;  i<=  3*N/5;  i  +  +  ){ 
beta[i]  =  Pi-0.05; 

}; 

for  (i=3*N/5;  i<=  N-l;  i  +  +  ){ 
beta[i]  =Pi-0.1; 

}; 

for  (i=0;  i<  =  N;  i  +  +  ){ 
pt[i]  =  specify_points(alpha_i,  beta)[i]; 

//pt_ini[i]  =  specify_points(alpha_i,  beta)[i]; 

}; 


//generate  a  random  chain 
beta[0]  =  betaj; 

pt[0]  =  specify_points(alpha_i,  beta)[0]; 
pt[l]  =  specify_points(alpha_i,  beta)[l]; 
double  em  =  0.0; 


ofstream  ek  file; 

ek_file.open("output_files/ek.txt",ios::app  |  ios::ate); 
for  (lambda  =  0.1;  lambda  <=  1.5;  lambda  =  lambda  +  0.02){ 
em  =  0.0; 
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and  9 


for  (m_RW  =  1;  m_RW  <=  M_RW;  m_RW  +  +  ){ 
for(i  =  l;  i<  =  N-l;  i  +  +  ){ 

//determined  position  of  pt[2] 

pro  =  rand()%100000;  //rand()%10:  return  a  random  number  between  0 

pro  =  pro/100000; 
beta[i]  =  pro*2*Pi; 

pt[i  +  l]  =  specify_points(alpha_i,  beta)[i  +  l]; 

} 

em  =  em  +  energy(pt,N); 

} 

ekfi  le<  <  lambda  <<"\t"<<em/M_RW<<endl; 

if  (lambda  >  0.5  &  lambda  <0.53)  cout<<"half  finished  "<<endl; 

} 

ek_file.close(); 


return  0; 

} 


vec.cpp 


#include  "vec.h" 

vec::vec(double  arg_l,  double  arg_2,  double  arg_3){  //to  initialize  a  created  vec:  vec 
instance(l,2,3); 

x_component  =  arg_l; 
y_component  =  arg_2; 
z_component  =  arg_3; 

}; 

double  vec::get_x(){ 

return  x_component; 

}; 

double  vec::get_y(){ 

return  y_component; 

}; 

double  vec::get_z(){ 

return  z_component; 

}; 


vec  vec::operator  +  (vec  arg){ 
vec  temp; 
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temp.x_component  =  x_component  +  arg.x_component; 
temp.y_component  =  y_component  +  arg.y_component; 
temp.z_component  =  z_component  +  arg.z_component; 
return(temp); 

}; 

vec  vec::operator  -  (vec  arg){ 
vec  temp; 

temp.x_component  =  x_component  -  arg.x_component; 
temp.y_component  =  y_component  -  arg.y_component; 
temp.z_component  =  z_component  -  arg.z_component; 
return(temp); 

}; 

vec  vec: operator  /  (double  s){ 

return  vec(x_component/s,y_component/s,z_component/s); 

}; 

vec  vec::operator  *  (double  s){ 

return  vec(x_component*s,y_component*s,z_component*s); 

}; 

double  vec::inner_wrt(vec  other){ 

return  (x_component*other.x_component)\ 

+  (y_component*other.y_component)\ 

+  (z_component*other.z_component); 

}; 


vec  vec::cross_wrt(vec  other){  //  a.cross_wrt(vec  b)  return:  a  cross  b 
return  vec(y_component*other.z_component- 
z_component*other.y_component,\ 

z_component*other.x_component-x_component*other.z_component,  \ 
x_component*other.y_component-y_component*other.x_component ); 

}; 


double  vec::distance_wrt(vec  other){ 

return  sqrt((x_component-other.x_cormponent)*(x_component- 
other.x_component)\ 

+  (y_component-other.y_component)*(y_component-other.y_component)\ 
+  (z_component-other.z_component)*(z_component- 
other.z_component)); 


}; 


double  vec::norm(){ 


return(  sqrt(x_component*x_component+y_component*y_component+z_component 
*z_component)  ); 
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vec  vec::rotate(vec  arg_axis,  double  arg_angle){ 
vec  v_final; 

v_final.x_component  =  cos(arg_angle)*x_component  \ 

-  sin(arg_angle)*  cross_wrt(arg_axis).x_component; 
v_final.y_component  =  cos(arg_angle)*y_component  \ 

-  sin(arg_angle)*  cross_wrt(arg_axis).y_component; 
v_final.z_component  =  cos(arg_angle)*z_component  \ 

-  sin(arg_angle)*  cross_wrt(arg_axis).z_component; 
return(v_final); 


=  =  =  =  =  =  =  =  =  =  Point. h 
#ifndef  POINTJH 
#define  POINT_H 

#include  "header.h" 

#include  "vec.h" 

class  Point{ 

vec  X,  p_normal,  X_A; 
double  beta; 

public: 

//////////////////// 

//specify  values//// 

//////////////////// 

Point(){beta  =  0;};  //declare  the  constructor,  which  is  envoked  when 
//creating  an  instance:  vec  instance; 


/////////////////////// 

///set  member  data///// 

/////////////////////// 
void  set_X(vec  other) { 

X  =  other; 

}; 

void  set_XA_N_X(){ 
vec  Xtemp; 
vec  z_hat(0,0,l); 

Xtemp  =  X  -  z_hat*(X.inner_wrt(z_hat)); 
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X_A  =  (Xtemp/Xtemp.norm())*Rl;  //set  X_A 
Xtemp  =  X  -  X_A; 

p_normal  =  Xtemp/Xtemp.norm();  //set  p_normal 
X  =  X_A  +  p_normal*R2;  //calibrate  X,  st  it  is  ON  the  torus 
}; 

void  set_beta(double  other){ 
beta  =  other; 

}; 


/////////////////////// 

///visit  member  data  III 
/////////////////////// 

vec  get_X(){ 
return  X; 

}; 

vec  get_X_A(){ 
return  X_A; 

}; 

vec  get_p_normal(){ 
return  p_normal; 

}; 

double  get_beta(){ 
return  beta; 

}; 


}; 


#endif 
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Codes  for  the  paper  "Dynamics  of  vacancies  in  two-dimensional  Lennard-Jones 
crystals" 


=  =  =  =  =  =  =  =  LAMMPS  codes 

##  LAMMPS  simualtions  of  Crystal  Melting 
#  start  on  April  28,  2014 


variable  radius  equal  e-6  #  meter 


variable  imax  equal  2 
print  "imax  =  ${imax}" 


variable  i  loop  ${imax} 

#  i  from  1  to  imax,  inclusive;  ref:  manual/variable 

variable  n_dump  equal  ${n_run}/50 

#  the  denominator  #  *  (imax  +1)  of  frames  in  the  exported  video 

variable  n_print  equal  ${n_run} 

#  10  prints 

#  variable  size_hole_x  equal  10.0  ##  vary  it 

#  variable  size_hole_y  equal  1.0  ##fix  it 

################## 

units  si  #  standard  international:  meter,  joul,  seconds  etc 


atom_style  charge  #  atomic  #  #  sphere  #  diameter,  mass,  angular  velocity 


boundary  p  p  p 

#  the  simulation  box  should  be  periodic  in  z  for  2D  simulations,  the  thickness 
(along  z)  should  be  narrow,  finite 

dimension  2 
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newton  on  off  #  pairwise  /  bonded  interactions 


lattice  hex  5.0*${radius} 

#  lattice  constant  in  distance  units 

variable  size_box  equal  100*${radius}  #  100 

variable  position_cylinder  equal  ${size_box}/2 

variable  size_cylinder  equal  ${size_box}/4  #  ${size_box}/100 

region  mybox  block  0  ${size_box}  0  ${size_box}  -0.5*${radius}  0.5*${radius} 


create_box  1  mybox 


create_atoms  1  region  mybox  #  crystal_core 


set  type  1  charge  1.6e-16  #1000 |e|  per  colloid 


mass  1  4.0e-15  #  kg 


variable  temp_for_velocity  equal  200 

velocity  all  create  ${temp_for_velocity}  4928459  rot  yes  dist  gaussian 

#  create  reduced  temperature  =  (the  first  number)  *  epsilon, 

#  random  number  of  seeds  =  4928... 

#  rot  yes:  the  angular  momentum  is  zeroed 

#  dist  gaussian:  to  generate  velocity  with  a  mean  of  0.0  and  a  sigma  scaled 
to  produce  the  requested  temperature 


############################################## 
############################################## 
################start:  set  up  potential 
################################################ 
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pair  style  coul/debye  0.001*${radius}  10.0*${radius} 

#  first  number:  kappa 

#  second  number:  cut-off 

dielectric  1.0 
pair_coeff  1  1 


variable  temp_l  equal  200  #  kelvin.  300K  room  temp  273.15 
variable  temp_2  equal  350 
variable  n_run  equal  10000 


############################################## 
############################################## 
################finish:  set  up  potential 
################################################ 


timestep  1.0e-8  #  default  value  for  units  si 


fix  1  all  enforce2d 

#  Zero  out  the  z-dimension  velocity  and  force  on  each  atom  in  the  group 

#  fix  fix  fix 

#  lamm ps 


thermo_style  custom  step  temp  epair  etotal  press  vol 

#  to  print  out  thermodynamic  data  to  the  screen  and  log  file 
thermo  ${n_print} 

#  Compute  and  print  thermodynamic  info  every  N  time  steps 


dump  1  all  custom  ${n_dump}  out.lammpstrj  id  type  xu  yu  zu 
#  dump  every  this  many  timesteps 
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fix  2  all  npt  temp  ${temp_l}  ${temp_l}  10.0  iso  0.0  0.0  100.0 
#  Tstart  Tstop  damp 
run  ${n_run} 
unfix  2 


print  "0${temp_l}"  file  real_temp.txt  screen  no 
print  "0${temp_l}"  file  set_temp.txt  screen  no 

##################  creat  a  loop 

label  start_of_loop_l 

#  Label  this  line  of  the  input  script  with  the  chosen  ID. 

#  to  play  together  with  "jump" 

print  "Iteration  i  =  $i" 

variable  my_temp_l  equal  ${temp_l}  +  (${temp_2}-${temp_l})*($i-l)/(${imax}-l) 
variable  my_temp_2  equal  ${temp_l}  +  (${termp_2}-${temp_l})*$i/(${imax}-l) 

#  print  "my_temp_l  =  ${my_temp_l}" 

#  print  "my_temp_2  =  ${my_temp_2}" 

#  print "" 


fix  2  all  npt  temp  ${my_temp_l}  ${my_temp_2}  10.0  iso  0.0  0.0  100.0 
#  dumpjriodify  1  append  yes 
run  ${n_run} 
unfix  2 

variable  tl  equal  temp 

#  Ref:  http://lammps.sandia.gov/doc/variable.html 

#  The  previous  run  invokes  various  computes, 

#  including  the  one  for  temperature,  so  that  the  value  it  stores 

#  is  current  and  can  be  accessed  by  the  variable  "t2"  after  the  run  has 
completed. 

print  "$ { i }  $  {tl }  "  append  real_temp.txt  screen  no 
print  "$ { i }  ${my_temp_2}  "  append  set_temp.txt  screen  no 


next  i 
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fix  2  all  npt  temp  ${my_temp_2}  ${my_temp_2}  10.0  iso  0.0  0.0  100.0 
#  dumpjnodify  1  append  yes 
run  ${n_run} 
unfix  2 

variable  t2  equal  temp 

print  "$ { i }  ${t2}  "  append  real_temp.txt  screen  no 
print  "$ { i }  ${my_temp_2}  "  append  set_temp.txt  screen  no 


next  i 

jump  SELF  start_of_loop_l 

#  lmp_g  +  +  -in  in. script,  ref:  manual/jump 

#  end  of  the  loop 


#  write_restart  restart. equil 
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Codes  for  the  paper  "Topological  Defects  in  Flat  Geometry:  The  Role  of  Density 
Inhomogeneity" 


cpp: 


#include  "variables. h" 

#include  <sstream> 

double  Vij  (vec  argl,  vec  arg2); 
vec  move_s  (vec  arg_r,  vec  arg_s); 

double  Vi  (vec  arg_vi,  int  argj); 
double  Vi_new  (vec  arg_vi,  int  arg  i); 

void  update_config(int  arg  i); 


std::string  make_output_filename(int  index)  { 
std::ostringstream  ss; 

ss  <<  "output_files/"  <<  index  <<  "state"<<"/points_coordinates_"  <<  index  < 
".txt"; 

return  ss.str(); 

} 

std::string  make_output_filename_2(int  index_l,  int  index_2)  { 
std::ostringstream  ss2; 

ss2  <<  "output_files/"  <<  index_l  <<  "state"<<"/energy_fixed_R_"  <<  index_2 
<<  ".txt"; 
return  ss2.str(); 

} 


///////////////////////////////////////////////////////// 
//////////////////////////////////////////////////////// 
/////m  a  i  n  f u  n  ct i  o  n ///////////////////////////////////// 
//// ///////////////////// /////// //// /// ////////////// / 

using  namespace  std; 

int  main(){ 
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cout<<"N  =  "<<N<<";  s  =  "<<s<<endl; 


int  i,  j; 

R  =  1.0; 

int  i_compress,  N_compress  =  10; 

double  energy[N_compress+l];  //lowest  energy  for  one  radius 
vec  v_temp; 
double  pro; 

//to  initialize  points  from  1  to  N.  randomly  on  a  disk  of  radius  R  =  1 
ofstream  coordinatesjfile,  energyjfile; 
coordinates_ifile.open(make_output_filename(0).c_str()); 

/*  initialize  random  seed:  */ 
srand  (time(NULL)); 


for  (i  =  l;  i<  =  N;  i  +  +  ){ 

pro  =  rand()%100000;  //rand()%10:  return  a  random  number  between  0 

and  9 

pro  =  pro/100000  -0.5;  //random  number  in  [0,1]  -0.5  =  [-0.5, 0.5] 
v_temp.set_x(pro*2*R); 

pro  =  rand()%100000;  //rand()%10:  return  a  random  number  between  0 

and  9 

pro  =  pro/100000  -0.5;  //random  number  in  [0,1]  -0.5  =  [-0.5, 0.5] 

v_temp.set_y(pro*2*sqrt(pow(R,2)-pow(v_temp.get_x(),2))); 

pt[i].set_X(v_temp); 

pt_new[i].set_X(v_temp); 

coordinates_ifile<<pt[i].get_X().get_x()<<"\t"<<pt[i].get_X().get_y()<<endl; 

} 

coordinates_ifile.close(); 

/////energy  of  initial  state//// 
energy[0]  =  0; 
for(i  =  1;  i  <=  N;  i  +  +  ){ 
energy[0]  =  energy[0]  +  Vi(pt[i].get_X(),  i); 

} 

//energy[0]  =  energyjni; 

cout<<"the  energy  of  initial  state  is:  "<<energy[0]<<endl; 

double  energy_t,  energy_old,  energy_new,  energy_after_sweep, 
energy_before_sweep; 
int  count  =  0; 

///////////////////////////////////////////////////////////////////////// 
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//relax  from  the  initial  random  configuration  (0)  by  force  method//////// 
///////////////////////////////////////////////////////////////////////// 


do  { 

//  calculate  energy  before  sweep 

energy_t  =  0.0; 

for(j  =  1;  j  <=  N;  j  +  +  ){ 

energy_t  =  energy_t  +  Vi(pt[j].get_X(),  j); 

} 

energy_before_sweep  =  energy_t; 


//a  sweep 

for(i  =  1;  i  <=  N;  i  +  +  ){ 

update_config(i);  //pt[i]  unchanged.  pt_new[i]  generated. 

//  calculate  old  energy 
energy_t  =  0.0; 
for(j  =  1;  j  <=  N;  j  +  +  ){ 

energy_t  =  energy_t  +  Vi(pt[j].get_X(),  j); 

} 

energy_old  =  energy_t; 

//  calculate  new  energy 
energy_t  =  0.0; 
for(j  =  1;  j  <=  N;  j  +  +  ){ 

energy_t  =  energy_t  +  Vi_new(pt_new[j].get_X(),  j); 

} 

energy_new  =  energy_t; 

if  (energy_new  <  energy_old)  { 
pt[i].set_X(pt_new[i].get_X()); 

//continue; 

} 

else  { 

pt_ne  w[  i  ] .  set_X(  pt[  i  ] .  g  et_X( ) ) ; 

} 

}  //  end  of  a  sweep 
count  +  +  ; 

//  calculate  energy  after  sweep 
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energy_t  =  0.0; 
for(j  =  1;  j  <=  N;  j  +  +  ){ 

energy_t  =  energy_t  +  Vi(pt[j].get_X(),  j); 

} 

energy_after_sweep  =  energy_t; 


//record  particle  position 
if  (count%l  —  0){ 

coordinates_ifile.open(make_output_filename(count).c_str());  //  "1"  is  the 
ground  state  at  R  =  1.0 

for(i  =  1;  i  <=  N;  i  +  +  ){ 


coordinates_ifile<<pt[i].get_X().get_x()<<"\t"<<pt[i].get_X().get_y()<<endl; 

} 

coordinates_ifile.close(); 

} 

//record  energy  reduction 

energy_ifile.open("output_files/energy_sweeps.txt",ios::app  |  ios::ate); 

energy_ifile<<count<<"\t"<<energy_after_sweep<<endl; 

energy_ifile.close(); 


if  (count%l  —  0) 

cout<<"at  sweep:  "<<count<<"\t"<<energy_after_sweep<<"\t"<<\ 
energy_before_sweep<<"  after  -  before  =  "<<energy_after_sweep- 
energy_before_sweep<<endl; 

}  while  (  energy_after_sweep  <  energy_before_sweep  );  //count  <  10000 
energy_new  <  energy_old 


////////////////////////////////// 

///write  to  files///////////////// 

////////////////////////////////// 
ofstream  parameter_ifile; 

pararmeter_ifile.open("output_files/pararmeters.txt"); 
parameter_ifile<<"step  length:  s  =  "<<s<<"  ;  R  =  "<<R<<"  ;  N  = 
"<<N<<endl; 

parameter_ifile.close(); 
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return  0; 


} 

=  =  =  =  =  =  =  =  =  =  =  =  =  Point. h 
#ifndef  POINT_H 
#define  POINT_H 

#include  "variables. h" 

class  Point{ 

vec  X,  s_vec;  //position  of  a  point  is  X  and  its  associated  s_vec  generate  a 
new  point:  X+s_vec. 
public: 

//////////////////// 

//specify  values//// 

//////////////////// 


/////////////////////// 

///set  member  data///// 

/////////////////////// 

void  set_X(vec  other) { 

X  =  other; 

}; 

void  set_s_vec(vec  other) { 
s_vec  =  other; 

}; 


/////////////////////// 

///visit  member  data  III 
/////////////////////// 

vec  get_X(){ 
return  X; 

}; 

vec  get_s_vec(){ 
return  s_vec; 

}; 


}; 
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#endif 


=  =  =  =  =  =  =  =  =  =  =  =  Vij.cpp 
#include  "variables. h" 


double  Vij  (vec  argl,  vec  arg2){ 
double  arg_d; 
vec  diff; 

diff  =  argl  -  arg2; 

arg_d  =  1.0/diff.norm();  //-log(diff.normO); 
return  arg_d; 

}; 


=  =  =  =  =  =  =  ==vec.h 
#include  "vec.h" 


double  vec::get_x(){ 

return  x_component; 

}; 

double  vec::get_y(){ 

return  y_component; 

}; 


vec  vec::operator  +  (vec  arg){ 
vec  temp; 

temp.x_component  =  x_component  +  arg.x_component; 
temp.y_component  =  y_component  +  arg.y_component; 
return(temp); 

}; 

vec  vec::operator  -  (vec  arg){ 
vec  temp; 

temp.xjzomponent  =  x_component  -  arg.x_component; 
temp.y_component  =  y_component  -  arg.y_component; 
return(temp); 

}; 

vec  vec: operator  /  (double  arg){ 
vec  v_arg; 
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v_arg.x_component  =  x_component/arg; 
v_arg.y_component  =  y_component/arg; 
return  v_arg; 

}; 

vec  vec::operator  *  (double  arg){ 
vec  v_arg; 

v_arg.x_component  =  x_component*arg; 
v_arg.y_component  =  y_component*arg; 
return  v_arg; 

}; 

double  vec::inner_wrt(vec  other){ 

return  (x_component*other.x_component)\ 
+  (y_component*other.y_component); 

}; 


double  vec::distance_wrt(vec  other){ 

return  sqrt((x_component-other.x_cormponent)*(x_component- 
other.x_component)\ 

+  (y_component-other.y_component)*(y_component- 
other.y_component)); 

}; 


double  vec::norm(){ 

return(  sqrt(x_component*x_component+y_component*y_component)  ); 

}; 


=  =  =  =  =  =  =  =  =  =  =variables.h 

#ifndef  _HEADER_H 
#define  _HEADER_H 
#include  <iostream> 
#include  <string> 

//#include  <vector> 

#include  <cmath> 

#include  <cstdlib> 

#include  "vec.h" 

#include  "Point. h" 

#include  <time.h> 

#include  <fstream> 

using  namespace  std; 

//  Constants  &  Input 
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#define  Pi 


(3.1415926536)  //  PI  value 


#define  s  (0.01)  // step  length 

//#define  R  (1.0)  // radius  of  disk 

#define  N  (600)  //total  number  of  particles  on  disk 

extern  Point  pt[ N  + 1  ]; 
extern  Point  pt_new[N  +  l]; 

//extern  double  energyjni,  denergy; 
extern  double  R; 

#endif 
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